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以 计算 机 操作 为 手段 ， 以 数学 软件 为 基础 的 数学 实验 课 ， 屁 教育 部 组 织 的 “ 狸 向 21 世 纪 
教学 内 容 和 课程 体系 改革 计划 ”课题 组 的 重要 研究 成 果 。2000 年 9 月 ， 我 们 把 数学 实验 课 的 教 
学 模式 引入 到 高 等 数学 的 教学 电 ， 对 在 普通 工科 高 校 中 如 何 开设 数学 实验 课 进 行 了 研究 与 实 
践 。 我 们 将 高 等 数学 实验 谋 的 教学 内 容 分 为 数学 软件 基础 实验 、 高 等 数学 基础 实验 、 高 等 数 
学 验证 与 演示 实验 和 高 等 数学 应 用 实验 四 部 分 。 各 部 分 内 容 既 相互 联系 又 相对 独立 ， 课 程 结 
束 之 后 要 求学 生 能 熟练 地 运用 数学 软件 进行 微 积分 的 基本 运算 ， 验 证 和 探索 微 积 分 的 基本 规 
律 ， 应 用 微 积分 的 基本 知识 解决 一 些 实际 问题 。 


一 、 有 针对 性 地 学 习 数 学 软件 Mathematica 


开设 数学 实验 课 必 须 借 助 于 计算 机 和 数学 软件 ， 我 们 采用 了 目前 在 国内 使 用 较为 广泛 的 
数学 软件 Mathematica。 Mathematica 系 统 庞大 ， 学 生 很 难 一 下 子 掌握 其 全 部 功能 。 因 此 ， 我 
们 根据 “高 等 数学 实验 ”课程 的 需要 ， 在 数学 软件 基础 实验 中 安排 了 12 个 实验 ， 每 个 实验 重 
点 学 习 儿 个 系统 函数 ， 熟 悉 软 件 的 某 些 功 能 。 数 学 软件 基础 实验 内 容 完 成 之 后 要 求学 生 具有 
一 定 的 计算 机 操作 能 力 ， 较 熟练 地 掌握 数学 软件 的 数值 计算 功能 、 绘 图 功能 和 微 积分 运算 功 
能 ， 能 够 使 用 Mathematica 编 写 相 关 的 程序 。 


二 、 利 用 Mathematica 完 成 微 积 分 、 线 性 代数 的 基本 运算 


学 生 在 学 习 高 等 数学 的 过 程 中 要 花费 大 量 的 时 间 进 行 微 积分 运算 。 事 实 上 ，Mathematica 
具有 强大 的 微 积分 运算 功能 ， 往 往 在 几 秒 钟 内 就 可 以 完成 繁琐 、 重 复 的 微 积分 演算 。 因 此 ， 
我 们 在 高 等 数学 基础 实验 中 安排 了 13 个 实验 ， 每 个 实验 与 同济 大 学 编 《 高 等 数学 》 (第 四 版 ) 
教材 的 有 关 章 节 内 容 相对 应 。 让 学 生 自 己 动 于， 用 Mathematica 进 行 微 积分 的 运算 ， 将 繁杂 的 
推演 和 运算 通过 计算 机 解决 ， 充 分 体验 数学 软件 准确 、 迅 速 、 简 单 、 易 行 的 优越 性 。 同 时 也 
让 学 生 认 识 到 Mathematica 不 是 万 能 的 ， 要 解决 一 些 综合 性 问题 ， 还 必须 将 计算 机 操作 与 传统 
的 解 题 方法 结合 起 来 ， 从 而 也 使 学 生 充分 认识 到 学 习 数 学 理论 知识 的 重要 性 。 


三 、 利 用 Mathematica 演 示 、 验 证 微 积分 的 概念 和 理论 


“高 等 数学 ”中 有 很 多 的 概念 和 理论 ， 采 用 传统 的 教学 方法 很 难 进行 生动 直观 的 教学 
从 而 影响 了 学 生 对 所 学 知识 的 理解 和 掌握 。 高 等 数学 验证 与 演示 实验 的 目的 就 是 充分 运用 
Mathematica 强 大 的 数值 计算 功能 和 图 形 功能 ， 将 传统 教学 方法 无 法 体现 出 来 的 概念 和 理论 的 
内 涵 ， 通 过 计算 机 屏幕 生动 、 直 观 地 展现 出 来 。 比 如 ， 极 限 概念 中 “无 限 逼近 ”的 思想 、 无 
盆 小 的 阶 及 其 比较 、 定 积分 定义 中 阶梯 形 面积 逼近 曲 边 梯形 面积 、 空 间 区 域 及 其 在 坐标 面 上 
的 投影 、 无 穷 级 数 的 收敛 性 等 内 容 ， 痢 可 以 适 过 编写 简单 的 程序 自由 地 进行 数值 验证 或 通过 
动画 图 形 从 几何 直观 上 进行 验证 与 演示 ， 从 而 加 深 对 这 些 概念 、 理 论 和 方法 的 理解 、 记 忆 和 
掌握 ， 提 高 学 生 对 学 习 的 兴趣 和 积极 性 。 


四 ， 引 导 学 生 进 行 简单 的 “ 建 模 ”实践 


企 高 等 数学 应 用 实验 中 我 们 安排 了 车 十 个 试验 ， 每 个 实验 安排 学 生 解 决 一 个 实际 问题 
这 些 实际 问题 涉及 物理 、 力 学 、 天 文 、 经 济 、 管 理 、 金 融 等 各 个 方面 。 尽 管 有 的 问题 可 能 比 


较 简单 ， 但 通过 “提出 问题 一 建立 模型 一 编程 求解 一 计算 机 处 理 一 进一步 讨论 ”这 
一 分 析 和 解决 问题 的 过 程 ， 可 以 使 学 生 受 到 建立 数学 模型 的 初步 训练 ， 体 会 “高 等 数学 ” 广 
泛 而 有 趣 的 应 用 ,培养 学 生 利用 所 学 高 等 数学 知识 分 析 和 解决 实际 问题 的 能 力 。 

经 过 几 年 的 实践 ， 我 们 体会 到 “高 等 数学 实验 ”改变 了 以 往 传统 教学 方法 中 由 教师 单 向 
传输 知识 的 教学 模式 , 提高 了 学 生 在 教学 过 程 中 的 参与 程度 和 实践 动手 能 力 ， 激 发 了 学 生 学 


习 数学 知识 的 兴趣 ， 加 深 了 学 生 对 所 学 知识 的 理解 和 掌握 ， 弥 和 
成 了 良好 的 教 与 学 的 互动 。 


了 传统 教学 方法 的 不 足 ， 形 


本 书 第 一 篇 、 第 四 篇 由 孙 卫 编写 ， 第 二 篇 、 第 五 篇 由 张 字 什 编写 ， 第 三 篇 由 孙 卫 、 张 字 
萍 共同 编写 ， 孙 卫 设 计 了 编写 大 纲 并 对 全 书 的 内 容 进 行 了 编排 和 统 稿 。 黄 宝 健 教授 审阅 了 本 
书 的 全 部 内 容 并 编写 了 应 用 实验 中 的 全 部 求解 程序 。 本 书 的 出 版 得 到 了 学 院 领导 和 教务 处 的 


大 力 支 持 ， 在 此 庙 他 们 表示 衷心 的 感谢 。 
在 本 书 的 编写 过 程 中 , 我 们 参考 了 国内 出 版 的 一 些 相关 教材 ， 


在 此 向 所 有 作者 表示 感谢 。 


编 者 
2003 年 5 月 于 西安 
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第 一 篇 Mathematica 软件 基础 


实验 1-1 Mathematica 简介 


实验 目的 


1. 了 解 Mathematica 的 基本 功能 。 

2. TREA Mathematica 中 获取 信息 的 方法 。 

3. 掌握 Mathematica 的 启动 、 运 行 和 退出 。 

4 了 解 Mathematica 的 主 菜单 和 工作 按钮 的 使 用 方法 。 


实验 指导 


一 、Mathematica 简介 


我 们 在 学 习 数 学 的 过 程 中 ， 要 花 大 量 的 时 间 用 于 推导 公式 、 画 图 、 计 算数 据 ， 其 中 绝 大 
部 分 是 技 照 固定 的 公式 、 法 则 进行 的 繁琐 和 重复 的 劳动 。 随 着 计算 机 技术 的 不 断 发 展 ， 今 天 ， 
人 们 已 经 开发 出 一 些 能 够 帮助 处 理 和 解决 数学 问题 的 软件 系统 。 

由 美国 物理 学 家 Stephen Wolfram 领导 的 一 个 小 组 开发 的 Mathematica 是 第 一 个 数学 软件 
系统 。 它 的 主要 功能 包括 三 个 方面 : 符号 演算 、 数 值 计算 和 图 形 。Mathematica 可 以 完成 许多 
符号 演算 和 数值 计算 的 工作 。 例 如 ， 它 可 以 进行 包括 数值 计算 、 初 等 代数 、 高 等 代数 、 高 等 
数学 等 各 种 运算 。Mathematica 还 具有 强大 的 绘图 功能 ， 使 用 Mathematica 可 以 非常 方便 地 做 
出 以 各 种 方式 表示 的 一 元 和 二 元 函数 的 图 形 ， 还 可 以 制作 多 画面 连续 放 像 的 动画 函数 图 形 。 

Mathematica 系统 不 仅仅 具有 上 述 这 些 功能 ， 而 且 它 还 把 这 些 功能 融合 在 一 个 系统 里 , 使 
它们 成 为 一 个 有 机 整体 。 在 使 用 Mathematica 的 过 程 中 使 用 者 可 以 根据 自己 的 需要 一 会 儿 从 
做 符号 演算 转 去 作 图 形 ， 一 会 儿 又 转 去 做 数值 计算 ， 这 种 灵活 性 为 使 用 者 带 来 很 大 的 方便 。 
Mathematica 还 是 一 个 很 容易 扩充 的 系统 , 它 用 于 描述 符号 表达 式 和 对 它们 的 计算 的 一 套 记 法 
实际 上 构成 了 一 个 功能 强大 的 程序 设计 语言 ， 用 这 种 语言 可 以 比较 方便 地 定义 用 户 需要 的 各 
种 函数 ， 完 成 用 户 需要 的 各 种 工作 。 I 

Mathematica 是 一 个 交互 式 的 计算 机 系统 。 用 户 通过 输入 设备 向 系统 发 出 计算 的 指令 ， 系 
统 在 完成 指定 的 计算 工作 后 把 计算 结果 告诉 用 户 ， 从 这 个 意义 上 来 说 ，Mathematica 系统 类 似 
一 个 高 级 的 计算 器 ， 它 的 使 用 方法 也 与 使 用 计算 器 类 似 ， 只 是 它 的 功能 比 一 般 的 计算 器 强大 
得 多 ， 能 接受 的 命令 也 丰富 得 多 。 


Z, Mathematica 的 启动 
在 Windows 环境 下 安装 好 Mathematica。 用 鼠标 双击 Mathematica 的 图 标 ， 稍 停 片刻 则 显 
示 如 图 1-1-1 的 工作 屏幕 。 


图 1-1-1 Mathemati a THERE 


Mathematica 的 工作 屏幕 上 共有 9 个 主 菜单 。 菜 单 中 每 个 项 目的 意义 和 使 用 方法 可 通过 联 
机 帮助 系统 的 Help 菜单 进行 查询 。 

三 、 退 出 和 重新 进入 Mathematica 

进入 Mathematica 后 ， 它 会 自动 在 计算 机 的 硬盘 上 建立 一 个 临时 文件 。 若 想 退出 
Mathematica， 可 以 用 Alt+F4 组 合 键 ， 也 可 以 选择 File 菜单 中 的 Exit 项 。 

每 次 在 Windows 下 退出 Mathematica 时 ，Mathematica 都 会 询问 你 是 否 想 保存 本 次 工作 ， 
如 果 你 想 保存 你 的 工作 结果 ， 可 以 回答 “Y”。 此 时 系统 会 要 求 你 指定 文件 名 ， 你 可 以 任意 
给 定 一 个 文件 名 ， 确 认 后 ， 系 统 就 将 该 文件 保存 在 Mathematica 的 子 目录 下 。 以 后 若 想 使 用 
本 次 保存 的 结果 ， 可 以 通过 File” sOpen/Import 菜单 读 入 。 

退出 Mathematica 后 ， 用 鼠标 双击 Mathematica 的 图 标 ， 可 再 次 进入 Mathematica 系统 。 

四 、Mathematica 的 输入 、 输 出 和 运行 


1. Mathematica 的 输入 方式 
(1) 通过 键盘 直接 输入 。 
(2) 通过 File 主 菜单 中 的 “Palettes” 选 项 进行 输入 。 

Mathematica 要 求 用 户 的 输入 要 符合 系统 内 部 的 规定 ， 若 不 符合 规定 ，Mathematica 将 拒 
绝 执行 并 提醒 用 户 重新 输入 。Mathematica 会 在 用 户 输入 有 错误 的 地 方 给 出 提示 信息 。 

Mathematica 能 够 处 理 多 种 类 型 的 数据 形式 : 数学 公式 、 集 合 、 和 矩阵 以 及 图 形 等 。 这 些 数 
据 从 形式 上 看 是 很 不 一 样 的 ， 但 在 Mathematica 系统 中 ， 各 种 数据 形式 都 被 看 成 是 同 种 类 型 ， 
均 称 为 表达 式 。 


在 Mathematica 的 工作 屏幕 上 ， 输 入 一 行 或 多 行 表达 式 ， 例 如 : 
In[]:=Plot[Sin[x],(x,-Pi,Pi)] а 
然后 同时 按 下 Shift 键 和 Enter 键 ， 系 统 即 可 执行 运算 ， 运 行 结果 如 图 1-1-2 所 示 。 


El Untitled-l ж 


h{i]= Plot[Sin[x], (x, -Pi, Pi}] 


| ошпЕ -Graphics ~ 


图 1-1-2 完成 第 1 个 运算 后 的 窗口 


图 1-1-2 中 符号 了 [表示 第 1 个 输入 ,Out[1] 表 示 第 1 个 输出 的 结果 , 这 两 个 符号 是 机 器 
自动 给 出 的 。 用 户 的 每 一 次 输入 和 Mathematica 对 应 的 输出 都 被 称 为 “细胞 (сеп) ”， 在 
Mathematica 的 工作 屏幕 上 用 “ 口 ”来 标识 。 

2， 控 制 系统 结果 输出 的 方法 

(1) 在 输入 表达 式 的 后 面 加 分 号 G) 后 再 运行 ， 则 屏幕 不 显示 运行 结果 。 

(2) 使 用 系统 函数 Short 可 以 简化 系统 的 结果 显示 ， 如 表 1-1-1 BUR, 


表 1-1-1 简化 结果 显示 的 系统 函数 Short 


G 数 说 B 
Short[ 表 达 式 ] 或 ”表达 式 // Short 给 出 一 个 1 行 的 计算 结果 显示 
Short[ 表 达 式 ,n] 给 出 一 个 n 行 的 计算 结果 显示 
例如 : 
In[]:=x = 2; 
y=3; 
也 =X+y 
Out[]= 


Њ:=#-Ехрапа[(1+х+у)^12]; 
Shortft 


Out[]= 
1+ 12x+ 662+ 2202, 495x" + 792 x+ 924 xÉ + 
«77» + 220 y + 66y + 132ху 2+ 66x yV + 12ү + 12xy +y? 


上 上述 输 出 中 的 <<77>> 表 示 输 出 结果 中 有 77 项 没有 显示 。 
五 、 从 Mathematica 中 获得 信息 


L 获得 帮助 信息 
С) 单 击 工作 屏幕 中 的 Help 菜单 ， 可 以 获取 使 用 Mathematica 的 各 种 信息 。 
(2) 在 行文 中 输入 “? 函数 名 ”或 “? ? 函数 各 ”可 得 到 有 关 函 数 的 调用 形式 和 相关 
说 明 。 例 如 ; 
Tn[]:=?Plot 
Out[]= 
Plot[f, (x, xmin, xmax)] generates a plot of f 
as a function of x from xmin to xmax. Plot[{f1, 
f2, 5). (x, xmin, xmax)] plots several functions fi, 


如 果 你 想 知道 以 P утэр ЖО Ии, 可 以 输入 ? P* ， 运 行 后 ， 屏 幕 上 将 显示 
以 P 开头 的 所 有 函数 ， 你 可 以 找 出 感 兴趣 的 函数 ， 去 查看 其 说 明 。 
2. 提示 信息 
当 用 户 的 输入 有 错误 时 , Mathematica 将 给 出 很 详细 的 提示 信息 来 指出 用 户 的 错误 。 例如 ， 
In[]:=Plot[Sin[x]} 
Out[]= 


Plot::argm : Plot called with 1 
argument; 2 or more arguments are expected. 


提示 信息 告诉 我 们 上 述 输入 中 Plot 函数 只 给 出 了 一 个 参数 ， 不 符合 系统 函数 的 要 求 ， 需 
要 给 出 两 个 或 更 多 的 参数 。 


六 、Mathematica 的 基本 功能 


1. Mathematica 的 数值 计算 功能 
卫 []:=3+S.4 
Out[]= 
4 
Jn[:=2^8 
Out[]= 
256 
2. Mathematica 的 符号 计算 功能 
(1) 用 Mathematica 求 积分 : 


In|]:=Integrate[Exp[x] * Sin[2x],x] 
Out[]= 


1 хы 
-2 е“ Cos[2x] + те8іш2х 


(2) 用 Mathematica #771: 
In[]:=Solve[Sqrt[x]+a==2x,x] 
Out[]= 


(Po вава) {хә £ (1+ ta, /1+8a)]) 


(3) 用 Mathematica 进行 微分 运算 : 
Tn[]:=D[Exp[x] * Sin[x],x] 
Out|]= 
e*Cos[x] + e“ Sin[x] 
(4) 用 Mathematica 展开 多 项 式 ， 
In[]:=Expand[(x+y)A3] 
ОшП= 
+3 у +3 ху? + y 
3. Mathematica 0228 Ж $Ë 
用 Plot 函数 画 ”= зіп x+sin 2x М xe (2л,2л) 时 的 图 形 ， 如 图 1-1-3 所 示 。 
In[]:=Plot[Sin[x]+Sin[2x],(x,-2Pi,2Pi)] 
Out[]= 
- Graphics - 


图 1-1-3 а-#87 


用 Plot3D ЖЖ z = іп xy 当 хє (04), ye (0,4) 时 的 图 形 ， 如 图 1-1-4 所 示 。 
In{]:=Plot3D[Sin[x*y], (x, 0, 4), (y, 0, 4}, PlotPoints -> 50] 
Out[]= 
= SurfaceGraphics - 


图 1-1-4 画 三 维 图 形 


实验 内 容 


练习 1 试 做 几 次 进入 和 退出 Mathematica 的 练习 。 
练习 2 试 做 几 次 打开 新 文件 、 关 闭 当前 文件 、 存 盘 退 出 和 重新 进入 已 存盘 文件 的 练习 。 
练习 3 练习 通过 联机 帮助 系统 获取 Mathematica 的 基本 菜单 的 功能 和 使 用 方法 。 


实验 1-2 Mathematica 中 的 数值 运算 


实验 目的 


.了解 Mathematica 系统 内 数 的 类 型 与 表示 方法 。 
. 掌握 系统 内 四 则 运算 及 乘 方 运算 的 基本 规则 。 
. 熟悉 系统 内 计算 结果 的 输出 形式 。 

‚ 掌握 系统 内 常用 的 数学 函数 。 

. 掌握 Head, N, Sum 函数 。 


мов ш рю к 


实验 指导 


一 、 系 统 中 数 的 类 型 与 表示 


Mathematica 系统 中 的 数 分 为 两 大 类 : 一 类 是 直接 用 数字 写 出 来 的 数 ， 一 类 是 系统 的 内 
部 常数 。Mathematica 的 简单 数值 类 型 有 四 种 ， 见 表 1-2-1。 


Ж 1-2-1 Mathematica 中 的 数值 类 型 


类 型 说 明 例 


me ERKENE, маана, MF] |, 
° | 之 问 不 能 有 空格 或 其 他 字符 ， 是 精确 数 ' 


Rational ARR НАХИЈИ НКУ СФЕ /› 3781123, эз 
分 隔 分 子 分 母 的 方式 表示 ， 是 精确 数 

Real 实数 ， 可 以 有 一 定 精度 。 也 称 浮 点 数 ， 用 中 间 有 з, 34684, 2. 
一 个 小 数 点 的 数 宁 素 表 不 


Complex 复数 ， 实 部 和 虚 部 可 为 整数 、 有 理 数 和 实数 34+2[， 8-6.5431 


11.21 用 函数 Head 判断 数值 的 类 型 。 
In[]: = Head[2] 
Out[] = 
Integer 
In[]; =Неад[2.] 
Out[]:= 
Real 
In[]: =Head[2/3] 
Out[]= 


Rational 
In{]:=Head[2 + 31] 
ОшП= 

Complex 


二 、 系 统 中 的 数学 常数 
许多 常用 的 数学 常数 在 Mathematica 里 都 有 定义 。 
表 1-2-2 Mathematica 中 的 数学 常数 


RERA ñ X 
Pi m =3.14159 =- 
E 自然 对 数 的 底 e= 2.71828 … 
Degree 1, л/180 
I 虚数 单位 ，i =/-1 
Infinity = (无 穷 大 ) 
三 、 数 值 的 输出 格式 


数值 的 输出 格式 函数 见 表 1-2-3。 
#123 ”常用 的 数值 输出 格式 函数 


а 数 说 明 
ScientificForm 以 科学 计数 法 表示 数值 
EngineeringForm 以 工程 计数 法 表示 数值 
AccountingForm 以 标准 统计 计数 法 表示 数值 


例 1.2.2 以 常用 的 数值 表示 法 输出 计算 结果 。 
ш[]:=5={2.3^5, 4.5^-5, 6Л^7}; 
ScientificForm(t] 

ОшП= 

{1.2167x10, 5.41923 +107, 6.06071 х 10°) 
Tn[]:=EngineeringForm[t] 
ОшП= 

(12.167, 541.923 10, 606.071. 10°) 
In[]:=AccountingForm[t] 
Out[]= 

(12.167, 0.000541923, 606071.) 


四 、 Mathematica 中 的 数值 运算 
Mathematica 最 基本 的 功能 是 进行 算术 运算， 匈 表 1-2-4。 
表 1-2-4 Mathematica 中 基本 的 运算 符号 


运算 法 则 运算 符号 举例 优先 级 
加 法 + 2+3 1 
КЫА - 3/8-14 1 
乘法 * 或 空格 L25 j 2 
除法 0 3.4/5 2 
ЕЛ B 26 | 3 


例 1.2.3 Mathematica 中 的 数值 运算 。 
In[]:=2*(3+4)-2A(2+1) 
OutD= 

6 

In[]: =(3+20)+(5-61) 

Out[]= 

8-4i 

TD:= 2.4^45 

Out[]= 

1.28678x 1017 


注意 (1) 可 以 用 括号 改变 运算 的 顺序 ; 

(2) 对 于 一 般 的 算术 运算 符 ， 连 续 的 几 个 同 级 运算 从 左 到 右 进 行 ,但 乘 方 运算 的 结合 
上 顺序 不 同 ， 是 从 右 到 左 进行 的 ; 

(3) 负 号 用 减 号 表示 ， 直 接 写 在 数 的 前 面 。 


五 、 使 用 前 面 的 计算 结果 
调用 已 有 结果 的 方式 如 表 1-2-5 所 示 。 
312.5 Mathematica 中 调用 前 面 结果 的 方式 


符 号 含 x 
% 代表 十 一 个 输出 的 结果 
%% 代表 上 面倒 数 第 二 个 输出 语句 的 结果 
mn 代表 上 闸 第 个 输出 语句 的 结果 
例 1.2.4 使 用 前 面 的 计算 结果 。 


In 和 := 2^2 


Out[]= 

4 
In[]:=%+6 
Out[]= 

10 
In[]|:=% %-2 
Ош = 

2 
In[]:=%2 * %3 
Оз = 

20 


六 、 运 算 的 精确 值 和 近似 值 


在 Mathematica 中 ， 如 果 参 加 计算 的 都 是 精确 数 ， 则 输出 的 结果 是 精确 数 。 如 果 在 算 
式 中 既 有 近似 数 ， 又 有 精确 数 ， 则 输出 的 结果 是 近似 数 。 
例 1.2.5 运算 的 精确 值 和 近似 值 。 
Jn0:= 2^10 
ОшП= 
1024 
ыю[:=2,^10 
Out[]= 
1024. 
Tn[]:= 1/3+2/7 
Out([]= 
13 
ЕТ 
In|]:= 1./3+2/7 
Outl]= 
0.619048 
为 了 得 到 计算 结果 的 近似 值 ， 可 以 用 系统 函数 来 控制 输出 结果 的 精度 。 


3 1-2-6 控制 输出 精度 的 系统 本 数 


а ж 说 明 
NI 表达 式 ] 或 1/N 计算 表达 式 的 数值 并 输出 近似 值 
МЕК, n] 计算 表达 式 的 数值 ， 并 给 出 R ЕНЕ 


例 1.2.6 使 用 N 函数 控制 输出 结果 的 精度 。 
nD:=E 


一 10 一 


Out[]= 

е 

In[]:= N[E, 201 

Out[]= 
2.7182818284590452354 
In[]:=2Pi+Pi+1 


10.4248 

In[]:=N [1/3+2/7] 

Out[]= 

0.619048 

In[]:=N [1/3 + 2/7, 40] 

Out[]= 
0.6190476190476190476190476190476190476190 


七 、 求 和 与 求 积 
求 和 与 求 积 销 数 见 表 1-2-7。 
家 1-2-7 Mathematica 中 的 基本 求 和 与 求 积 函 数 


ж Ж ия 
mak 
Sumrft,fimin,maxj] HAAR У f, 
Sum[fli],(i,min,max,di]] БИРЕ di Prank Y, 


imin 


Product[ffi),{i,min,max}] 计算 乘积 式 ii f 


i=min 


max 
Product[f[i],{iminmax,di}] DL K di 计算 乘积 式 [ [ f, 


ismin 


11.27 用 Sum 函数 求 和 。 
b[]:=Sum{n^2, {1,1,100} 
Out[]= 
338350 
]1n[]:=Sum[n * x^n,{n, 1, 10, 2}] 
Out[]= 
x+3X +5? +7х' +9 


一 1 一 


实验 内 容 
练习 1 计算 re 的 近似 值 ， 要 求 精确 到 10, 20, 50, 100 位 的 小 数 。 


1 
练习 2 检查 re,20,25,2+3j 的 数据 类 型 。 
练习 3 计算 下 列 各 值 : 


d) 215; (2) Ул?+1; (3) sin35°; (4) 108; 246; (5) tan045 . 
练习 4 自由 练习 各 种 数值 运算 。 


一 了 2 一 


实验 1-3 Mathematica 中 的 变量 与 函数 


实验 目的 


1. 了解 变 基 与 函数 的 命名 规则 和 赋值 方法 。 
2. 掌握 Mathematica 系统 中 常用 的 数学 函数 。 
3. 掌握 自 定义 田 数 的 方法 。 

4. TREZ Print, If, Which 的 使 用 方法 ， 


实验 指导 


一 、 变 量 与 函数 的 命名 规则 


51) 变 量 名 和 函数 名 可 以 是 任意 长 度 的 字符 或 字符 串 , 其 中 不 得 有 空格 及 其 他 运算 符号 ， 
灾 量 名 和 通 数 名 不 得 以 数字 开头 。 

(2) Mathematica 内 部 具有 的 变量 和 函数 的 第 一 个 字母 必须 大 写 ， 后 面 用 小 写 ， 当 函数 
名 可 以 分 成 几 个 段 时 ， 每 一 个 段 的 头 一 个 字母 用 大 写 ， 后 面 的 字母 用 小 写 ， 如 ，AreSin[x] 
ArcSinh[x] 等 。 

(3) 省 数 的 参数 表 用 方 括号 括 起 来 ， 不 能 用 圆 括 号 。 有 多 个 参数 的 函数 ， 参 数 之 间 用 去 
号 分 陋 。 

《4) 为 与 系统 内 部 变量 和 函数 相 区 别 。 自 定义 变量 和 函数 名 的 开头 应 使 用 小 写字 母 。 

(5) 自 定义 函数 时 ， 方 括号 中 自 变 量 的 左边 必须 有 一 个 下 划 线 “_”。 


二 、 变 量 的 赋值 方法 


(1) Mathematica 用 等 号 “=” 表示 给 变量 峰值， 赋值 号 (等 号 ) 的 左 端 应 当 是 一 个 可 以 
赋值 的 对 象 (变量 )， 右 端 可 以 是 任何 表达 式 ; 
(2) Н “Ж ВОЯ ААН? 的 形式 给 一 个 变量 赋值 ， 或 用 “BALL 
晤 名称-> 变 量 什 ，，…， 变 量 名 称 -> 变量 值 } ”的 形式 给 多 个 变量 赋值 。 
例 1.3.1 用 等 号 “=” 给 变量 赋值 。 
In[]:=x=5 (* 给 变量 x 赋 值 5*) 
Out[]= 
5 
P[:==ul=u2=2 (* 给 变量 四 赋值 2*) 
Out[]= 
2 
例 132 用 “函数 名 /.{ 挛 量 名 称 -> 变量 值 ，...， 变 量 名 称 -> 变量 值 }” 的 形式 给 多 个 变 
量 赋值 。 
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In[]:=P1=3x^2+1 ¢* 把 一 个 多 项 式 赋值 给 安 量 有 + ) 
Out[]= 
1:30 
In[]:=P1/.x->2 C* 把 2 赋值 给 中 的 变量 x * ) 
Out[]= 
13 
In[]:=P1/.x->(t+1) (* 把 多 项 式 PRAH PRR *) 
Out[]= 
1+3(1+02 
In[]:=P2=3xA2+x * у+х * у^3 
Оч = 
зж» ху+ ху? 
In[]:=P2/.(x->2,y->3) (* 给 变量 x 赋值 2， 变 量 y 赋值 3*) 
ОшП= 
72 
三 、 系 统 内 数学 函数 
Mathematica 系统 提供 几 百 个 常用 的 数学 函数 ， 包 括 一 些 基本 初等 函数 和 一 些 特 殊 函 数 ， 
表 1-3-1 列 出 了 工科 数学 中 常用 的 初等 函数 。 
表 1-3-1 Mathematica 中 的 基本 初等 函数 和 常用 特殊 西数 
а № 说 明 K 数 说 明 
Sqrt[x] 平方 根 函 数 Sinh[x] 双 曲 正弦 函数 
Ехріх] 指数 函数 Coshfx] 双 曲 余弦 函数 
Logix] 自然 对 数 函 数 In x Tanh[x] 发 出 正切 函数 
Log[a ,x] D а 为 底 的 对 数 函 数 ArcSinh[x] 反 双 明正 弦 函 数 
Sinix] 正弦 函数 AreCosh[x] 反 双 曲 余弦 函数 
Cos[x] 余弦 函数 ArcTanh[x] 反 双 昌 正 切 函数 
Тап[х] 正切 函数 Max[el,...,en] 求 @1,e，…,es 的 最 大 值 
Сох] 余 切 函数 Min[el,...,en] Reper, e, 的 最 小 值 
ArcSin[x] RERA Abs[x] 绝对 值 函 数 
ArcCos[x] ERREN 1 阶乘 函数 
AreTan[x] 反正 切 函 数 
Д. ВУЖ 


虽然 Mathematica 提供 了 大 量 的 系统 函数 ， 但 是 在 很 多 实际 应 用 中 可 能 还 不 够 用 。 用 户 
可 以 自己 定义 新 的 函数 ， 自 定义 的 函数 可 以 像 系 统 内 部 函数 一 样 使 用 。 
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例 13.3 ЖХ fG,y)=x +y? ay anx FRR R. 


ш[]:=[х_,у_]:=х^2+у^2=х * у * Tan[x/y]; ЇТх,у]/.{х->1,у+>1} 


Out[]= 
2- Tan[1] 
Tn[]:=flx,y]/.(x->u,y->v] 
Onutfj= 
ч? sv- тутап| 2] 
у 
ш[]:=[х_›у_]:=1 ов[х] * Logly] O 重新 定义 这 个 函数 + ) 
© * 但 看 函数 的 定义 * ) 
Out[]= 
Global ` 工 O 上 为 全 局 变量 * 》 
Fix y := Log[x] Log[y! O 旧 定 义 已 被 新 定义 取代 * ) 


利用 条 件 语句 班 条 件 ,表达 式 LEER 2] 和 Which[ 条 件 LEER LEE 2, 表 达 式 2... 
条 件 卫 表达 式 串 可 以 定义 分 段 函 数 。 


x+1, x<-1 
例 1.3.4 定义 分 段 函数 fn = {зіп2лх, -1<х<1 并 画 出 其 图 形 。 
Ix, х>1 


In[1:= flx_]:=zWhich[x<=-Lx+1,<<=1,Sin[2Pi * x]x>1,LogIx1l; 
Plotíflx],(x,-4.4)1 
Out[]= 
- Graphics - 
输出 图 形 如 图 1-3-1 所 示 。 


ЕНЕ. 


例 1.3.5 定义 分 段 函数 ea 


In[]:= g[x_]:=Iflx<=1,x,11; 
Plot[g[x],[x,-2,2]] 


x, xsi 
1 
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Out[]= 
- Graphics - 
ЗЕН ЕЕЕ 1-3-2 所 示 。 


In[]:=Print[g[-2], ” ",g[0)" ",ш2]] € 分 别 输出 g(-2),g(0),g(2) 的 函数 值 * ) 
Out[]= 
-2 0 1 
Print 是 系统 的 基本 屏幕 输出 函数 ， 它 的 使 用 形式 是 ， Print[exprl,expr2,...]， 它 在 屏幕 
上 依次 将 表达 式 1， 表 达 式 2 等 显示 出 来 。 两 个 相 邻 的 表达 式 输出 之 间 不 留 空格 ， 整 个 输出 
完毕 后 换 一 行 。 如 果 需 要 在 表达 式 之 间 留 空格 ， 可 以 在 它们 之 闻 加 上 包含 空格 的 字符 申 。 
五 、 变 量 与 函数 的 清除 
一 旦 给 某 一 变量 或 函数 赋值 后 ， 这 值 就 一 直 保持 不 变 。 一 般 ， 当 一 个 变量 或 函数 使 用 完 
之 后 ， 最 好 清除 掉 这 个 变量 或 函数 的 定义 ， 否 则 后 面 的 使 用 中 可 能 会 出 现 混乱 。 清 除 的 方法 
是 用 Clear[ 变革 ] 或 Clear[ 函数 ]。. 
#1136 自 定义 函数 并 清除 。 
In[]:=flx_]:=1/2 * ArcCos[x/2] (*+ 定义 函数 并 求 函数 值 * ) 


fTSqrt[2]] 

Out[]= 

8 
In[]:=f{0] 
Out[]= 

4 
In[]:=2f (* 使 用 ?f 查 看 函数 f 的 定义 * ) 
Out[]= 

Global‘f (* 了 为 一 个 全 局 变量 *) 


fix := 1 ArcCos[ х] 
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式 ， 


In|]:=Clearif] (ж 使 用 Clear ЖИЕ f +) 


7% OFER f) 
Out[]= 
Global `f ( * 了 已 被 清除 * ) 
实验 内 容 


练习 1 设 了 (=Yy4+x?， 求 下 列 函 数值 : 7(0) уй), JOD: г, Fath). 


sin д], <= 
练习 2 и. | n? 5 RoD, ФбӘ, ФС). p3. 
o, >® 6 14 4 


练习 3 AREALA = mat +1 МБЕ. 


EIA убу=2л°+бх-3, RDD уб) = МУО) — fCx21 8938 


并 指出 pl) 及 Wx) 中， 哪个 是 奇 函 数 ， 哪 个 是 偶 函 数 。 
练习 5 火车 站 收取 行李 运费 的 规定 如 下 : 当 行李 不 超过 50kg 时 ， 按 基本 运费 计算 ， 如 


从 上 海 到 某 地 收 0.15 元 /kg。 当 超过 50kg 时 超重 部 分 按 0.25 元 /kg 收费 。 


(1) 试用 自 定义 函数 表示 上 海 到 该 地 的 行李 费 与 重量 x 之 头 的 函数 关系 ; 
(2) 选择 适当 z 值 ， 计 算出 相应 的 收费 金额 ? - 
练习 6 自由 练习 定义 各 种 函数 并 进行 各 种 运算 。 
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实验 1-4 ”二 维 图 形 的 描绘 


实验 目的 


1. 了 解 Mathematica 的 绘图 原理 。 

2. 掌握 利用 Mathematica 绘制 一 元 函数 图 形 的 基本 方法 。 
3. 掌握 Plot, ParmetricPlot, ListPlot, Show Б. 

4. 会 利用 Plot 函数 的 可 选项 对 图 形 外 观 进行 修饰 。 


实验 指导 


一 、 作 图 原理 

计算 机 在 画 函 数 图 形 时 所 用 的 基本 方法 类 似 于 描 点 法 。 机 器 首先 对 所 给 区 间 里 的 一 定数 
量 的 点 (通常 取 区 间 的 均 分 点 ) 计算 函数 值 ， 并 画 出 这 些 点 (zx, 了 (x)) ， 然 后 依 x 的 大 小 从 小 到 
大 把 所 对 应 的 点 用 直线 段 连接 成 一 条 曲线 (实际 上 是 一 条 折线 ), 就 把 它 作为 函数 在 观察 区 域 
内 的 图 形 。 值 得 注意 的 是 ， 点 (zx f(x) 可 能 由 于 不 在 观察 区 间 内 而 不 通 出 。 这 时 ， 直 线段 的 
连接 将 跳 过 这 一 点 ， 从 而 使 图 形 产生 一 定 的 变形 ， 严 重 时 可 以 与 真实 的 函数 图 形 相差 甚 远 。 


此 在 作 图 时 ， 应 注意 选择 合适 的 观察 区 域 。 


#141 分 别 运行 以 下 表达 式 ， 注 意 观察 输出 结果 。 
(1) Plot[x^2 +3 „Дх, -2, 2},PlotRange->{-2, 2}] 
(2) Plot[x^2 +3 х, -4, 4),PlotRange->(-4, 411 
(3> Plot[xA2 +3 „х, -10, 10},PlotRange->{-5, 30}] 


二 、 基 本 绘图 函数 Plot 
Plot 函数 的 使 用 方法 ， 如 表 1-4-1 所 示 。 
R141 基本 绘图 函数 Piot 的 使 用 方法 


= Ж 意义 
Plotlf[xh{xyab} 可 选项 ] 两 出 函数 f (x) ТЕ (a,b) 内 的 图 形 
Plot[{f1[x], 息 [x],…],{%a,b], 可 选项 ] 机 出 多 个 函数 f, (x), f, (x),… 在 (a,b) 内 的 图 形 


例 1.4.2 F] Plot Н y= tan x 4 xe (-2r.27) 时 的 图 形 。 
In{]:= Plot[ Tan[x],{x,-2Pi,2Pi}] 
Out[]= 
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- Graphics - 
输出 图 形 如 图 1-4-1 所 示 。 


图 1-4-1 


例 1.4.3 将 函数 y=sinx,y=sin2x H xe (-2r2r) 时 的 图 形 画 在 一 张 图 上 。 
In[J:=Plot[(Sin[xl,Sin[2x]),(x,-2Pi,2Pi)] 
Out[]= 
= Graphics - 
输出 图 形 如 图 1-4-2 所 示 。 


3 3 5 
例 144 HAR hahi, fpo) =x- A y=sinx EEK 


3 5 
图 上 。 
In[|:=zf0=x;f1=x-xA3/6; f2= x-x^3/6+x^5/120; 
Plot[1Sin[x],f0,f1,f2,1,[x,0,Pi), AspectRatio->Automatic,AxesLabel->{"x", "у"}] 
Out[]= 
- Graphics - 
ЗНАЕЛЕ 1-4-3 所 示 。 


=. Plot 函数 的 可 选项 
常用 的 Plot 函数 的 可 选项 见 表 1-4-2. 
表 1-4-2 Рю 函数 常用 的 可 选项 


可 选项 歌 认 值 说 B 
指定 作 图 范围 。 可 用 {yly3] 的 形式 要 求 


PiotRange Automatic 绘 出 纵 坐 标 在 [y1, y>] 内 的 图 形 
win 指定 作 图 的 纵横 比例 ， 若 按 实际 情况 作 
AspectRatio au 图 ， 则 需 设 置 为 Automatic 
Atomatic 是 否 画 坐 标 轴 及 设置 坐标 轴 的 中 心 位 
Axes 《 画 坐 标 灿 并 自动 确定 设置 sa ид None 时 表示 不 设 从 标 轴 
ЖШ Ж 
TUR "І" “字符 串 2” ] 形 
下 做 标记 > 
AxesLabel None (不 做 标记 ИНА ИЛА АУЕН 
n automatic 规定 坐标 轴 上 刻度 的 位 置 ， 可 以 用 None 


《自动 确定 坐标 刻度 ) 要 求 不 标 出 举 标 轴 刻 度 


指定 曲线 的 样式 ， 取 默认 值 时 ， 图 形 为 


PlotStyle Auti ti 
обе чэш 黑 实 线 。 可 通过 可 选项 ， 改 变 旱 线 的 样式 
w. m ЕАО, FERAE 
刚烈 的 雪 达 式 ， 应 设 定 较 大 的 点 数 
2 显示 图 形 。 i 
DisplayFunction $DisplayFunction 用 什么 机 制 显示 图 形 。 可 用 Identity 2 


示 只 生成 图 形 ， 但 是 现在 不 显示 
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Plot Ез +} НЕЛЕ ДЕН] KAS RERA REET АО н 6С. TARTANA, ЫЛ] 
以 没有 。 如 果 没 有 ，Plot 就 会 按照 系统 内 部 默认 的 方式 作 图 。 可 选项 的 表示 方法 是 :可 选项 
名 -> 可 选项 值 ， 画 一 个 图 形 ， 可 以 列 出 多 个 可 选项 ， 以 各 号 隔 开 、 依 次 排列 。 
1.45 ПОШ у= tan x 在 xs (—2m2n) 内 的 图 形 ， 指 定 作 图 范围 、 坐 标 轴 的 纵横 比例 
和 玲 标 轴 的 标记 。 
In[|:=Piot[Tan[x],{x,-2Pi,2Pi},PIotRange->{-5,5},AspectRatio->Automatic, 
AxesLabel->{"x", '"Тап[х}"}] 
Onut[J= 
~ Graphics - 
输出 图 形 如 图 1-4-4 所 示 。 


图 1-4-4 
对 于 函 数值 变化 比较 剧烈 的 表达 式 ， 应 当 取 一 个 恰当 的 绘图 区 间 和 比较 大 的 PlotPoints 
值 ， 以 避免 作出 的 图 形 在 一 些 区 域 过 分 偏离 实际 的 图 形 。 
#1146 比较 以 下 输入 和 输出 结果 的 不 同 。 
In[]:=Plot[Sin[10x],{x,-Pi,Pi}] 
Out[]= 
~ Graphics - 


输出 图 形 如 图 1-4-5 所 示 。 
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In[]:=Plot|Sin[10x],(x,-Pi/5,Pi/5),PlotPoints->100] 
Out[]= 
- Graphics - 
输出 图 形 如 图 1-4-6 所 示 。 


E 1-4-6 


R 1-4-3 PlotStyle 函数 常用 的 可 选项 


可 选项 й H 
Thickmess[t] 要 求 曲 线 的 宽度 值 为 
GrayLevelfi] 撕 述 曲线 使 用 的 灰 度 ， 其 中 i 是 区 间 [0,1] 中 的 一 个 数 ，0 RRE 
@, 1! 表示 白色 
曲线 红色 、 绿色 、 蓝 色 的 强度 , 其 取 值 可 由 Input 菜单 中 的 color 
RGBColor[r,g,b], 
Seletcet 项 确定 
Dashing[{d1,d2,...)] Шалт, ЖАКА а, 
| 


如 果 用 Piot 函数 画 两 个 或 多 个 函数 的 图 形 ， 可 以 用 PlotStyle 为 每 条 曲线 设 定 一 个 不 同 的 
方式 ， 这 时 必须 把 描述 一 条 曲线 的 项 放 在 一 个 表 里 作 为 PlotStyle 值 的 一 个 子 表 。 

例 1.4.7 分 别 用 红 、 绿 、 蓝 三 种 颜色 面 出 y =sin x, y = sin 2x, y = sin Эх 的 图 形 。 

Tnl:=Piot[[Sinix],Sin[2x] Sin[3x]),(x,0,2Pi),PlotStyle->[RGBColor[1,0,01, 
RGBColor[0,1,0],RGBColor[0;0,1])] 
Out[]= 
- Graghics - 

输出 图 形 如 图 1-4-7 所 示 。 

例 1.4.8 ЭЖЕЕ ПЕ y =sinx, y =sin 2x ТЕЕ. 
In[):=Plot!{Sin[x},Sin[2x]), {x,-2Pi,2Pi}, PlotStyle->{{RGBColor[0,1,1], 


TThickness[0.01]),( RGBColor[1,0,1],Dashing[(0.05,0.05; HD 
Out[]= 


—22— 


- Graphics - 


输出 图 形 如 图 1-4-8 P 


图 1-4-7 814-8 
四 、 二 维 参 数 图 形 
Mathematica 还 能 方便 地 画 用 参数 形式 宕 示 的 一 元 函数 的 图 形 。 使 用 的 函数 是 


ParametricPlot， 它 的 使 用 形式 有 两 种 : 
C1) ParametricPiot[{x(,y()){b 下 限 ,上 限 }, 可 选项 ] 
(2) ParametricPloti{x1(0),y1(0}, {x2(0,y20}-…fb 下 限 , 上 限 }, 可 选项 ] 
ParametricPlot 接受 与 Plot 一 样 的 可 选项 ， 其 作用 也 一 样 。 
例 1.4.9 利用 ParametricPlot BARMA asa: 
In[]:=ParametricPlot[{Sin[t],Cos[t]},{t,0,2Pi}, AspectRatio->Automatic] 


Out[]= 
- Graphics - 


输出 图 形 如 图 1-4-9 所 示 。 
8149 


(00<:5 2л) 的 图 形 。 
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(0525 2п) KRIE. 


例 1.4.10 利用 ParametricPlot ZEE JE N = 2eos t 
y=2sin r 
In[]:=ParametricPlot[{2Cos{[t]^3, 2Sin[t]^3 },{t,0,2Pi}, AspectRatio->Automatic] 
Out[j= 
- Graphics - 
输出 图 形 如 图 1-4-10 所 示 。 


图 1-4-10 


利用 ParametricPlot 还 圳 以 画 出 用 极 坐 标 表示 的 函数 的 图 形 。 
911.411 利用 ParametricPlot AROE r= 2(1- сов Ө) 的 图 形 。 
Tn[]:=r1[t_J:=2(1-Cos[tD; 
ParametricPiot[(ri[t]*Cos[t],r1[t]J*Sin [t]}{t,0,2Pi},AspectRatio->Automatic] 
Out[]= 
- Graphics - 
输出 图 形 如 图 1-4-11 所 示 。 


图 1-4-11 
例 1.4.12 利用 ParametricPlot 应 数 画 三 叶 玫 瑰 线 + = 2соз 30 图 形 。 
In[]:=r2[t_1:=2Cos[34t]; 
ParametricPlot[{r2[t]*Cos[t], r2[t]*Sin[t],(t,,4Pi), 
AspectRatio->Automatic] 
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ОшП= 


- Graphics - 
输出 图 形 如 图 1-4-12 所 示 。 


五 、 平 面 数据 作 图 函数 


Mathematica 可 以 根据 一 组 数据 做 出 图 形 ， 使 用 的 函数 形式 是 ，ListPlot[ 数 据 ， 可 选项 ] 
见 表 1-4-4。 


Ë 1-4-4 ListPlot 函数 常用 的 可 选项 


可 选项 默认 值 说 m 
PlotJoined False 是 否 用 直线 连接 各 点 。 可 用 True 表示 得 到 连接 这 些 点 的 折线 
PlotStyle Automatic 所 画 的 点 或 直线 的 类 型 


例 1.4.13 ш Уйу = ани 的 前 100 项 的 散 点 图 。 


hf):=t=Table[(1+4/n)^n, 
ListPlot[t] 

Out[]= 
- Graphics - 


输出 结果 如 图 1-4-13 所 示 。 
六 、 图 形 的 重新 显示 、 组 合 和 输出 


п,1,100}]; 


使 用 系统 函数 Show[ 图 1, 图 2.… 可 选项 -一 > 可 选项 值 ] 可 把 以 前 作 过 的 图 形 进行 组 合 、 和 
新 显示 。 
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图 1-4-13 


0114.14 将 y=x** 和 y=x 的 图 形 重新 组 合 显示 在 图 上 (如 图 1-4-14 所 示 )。 


Tn[]:=f1=Plot[xA2,[x,-2,2)]; 
f2=Plot[x,(x,-2,2)]; 
Show[fl,f2, PlotRange->{-2,2},AspectRatio->Automatic, 
AxesLabel->{"x","y" }] 


ОшП= 
= Graphics - 
输出 结果 如 图 1-4-14 所 示 。 
例 1.4.15 ЮЕ у= А хуг =1 的 图 形 组 合 显示 。 


Inl]: 1=Plot[x^2,(x,-2,2}]; 
f2=ParametricPlotí (Cos[t],Sin[t]),(t,0,2Pi)]; 
Show[flLf2， PlotRange->{-2,2},AspectRatio->Automatic, 
AxesLabel->{"x", "y" }] 
ОшПЕ 
- Graphics - 
输出 图 形 如 图 1-4-15 所 示 。 


图 1-4-15 
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实验 内 容 
练习 1 描绘 基本 初等 函数 的 图 形 。 
练习 2 在 一 张 图 上 画 出 函数 y=x" 的 图 形 (n=1,2,…,10) 。 
练习 3 面 出 下 列 图 形 (选择 不 同 的 区 间 、 曲 线 颜色 、 点 数 ， 加 图 名 、 坐 标 ). 


(Dy=xtl: (2)y=x+sinx; (3)y= 2 ; 
x 2“ +1 
2 
az= 3 =, (5уг=е“®. 
ltt l+r 


练习 4 自由 练习 绘制 各 种 函数 的 图 形 ， 并 用 可 选项 对 图 形 的 外 观 进 行 修饰 。 
练习 5 对 h=0.1, 001, 0.001, 000001 {Е во) = ШЕМ Sin 的 图 形 (将 4 个 图 形 
放 在 一 张 图 上 )， 比 较 它们 与 y= cosx 图 形 的 差异 ， 并 猜 出 y=sinx 的 导 函 数 。 
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实验 1-5 Mathematica 的 代数 运算 


实验 目的 


. 会 利用 Mathematica 进行 多 项 式 的 各 种 基本 运算 。 

. 会 利用 Mathematica 进行 有 理 式 的 各 种 基本 运算 。 

.会 利用 Mathematica 求解 方程 (组 ) 。 

. 掌握 Expand, Factor, Together, Apart, Solve, NSolve, FindRoot @ Ж. 


Aurp 


实验 指导 


一 、 多 项 式 的 计算 
常用 多 项 式 运算 函数 见 表 1-5-1. 
表 1-5-1 Mathematica 常用 的 多 项 式 运 算 函 数 


函数 说 明 
Expandi EAR] 把 多 项 式 展开 
Expand[ 多 项 式 ,x] 按 x* 的 乘 窗 展开 多 项 式 
Factor[ 多 项 式 ] 对 多 项 式 进行 因 式 分 解 
FactorTerm[ 多 项 式 ] 提取 数字 公 因 式 
Collect[ 多 项 式 ,x] 以 x 的 塞 的 形式 重新 排列 多 项 式 


151 一 元 多 项 式 的 各 种 运算 。 
Ш[]:=р1=х^3-х 
Out[]= 
ЕЗ 
In[]:=Factor[p1] Се р, 进行 因 式 分 解 * 》 
Out[]= 
(+1+x) х(1+х) 
In[]:=Expand[ %] (* 将 上 述 输出 结果 展开 * ) 
Out[]= 
-x+ 2 
#152 ”二 元 多 项 式 的 各 种 运算 。 
[:=р2=(1+2х+у)^3 
Out[]= 
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{1-2х у)? 
1АП:=Ехрапа[% | 
Out 站 = 


1+ 6x+12x24 8x4 3y+2xy+ 12x y 3y xy ty 


Ini ]:=Collect[p2,x] 
Out[]= 


1:87. Зу-Зу/-у) ry (12+ 12y) +x (6+ 12y+ буу. 


T1n|]:=Collectíp2,y] 
Outl]= 


L+6x+12x2, BK a (3+ 12х+ 1252) у+ (3+ 6X) y2, y 


二 、 有 理 式 的 运算 
有 理 分 式 运算 函数 见 表 1-5-2。 


表 1-5-2 ”常用 的 有 理 分 式 运算 函数 
ЕШ йй 
Араг ERR] 将 表达 式 分 解 为 部 分 分 式 之 和 
Expand EER] ЛЗР, БАЯ 
ExpandAll[ 表 达 式 ] | АТ. AF 
Factor 8] 将 表达 式 的 分 子 分 母 因 式 分 解 ， 并 的 分 
Together JEER] 对 有 再 式 进 行 通 分 


例 1.5.3 有理 分 式 的 各 种 运算 。 


In[]:=1/((x22+1)*(xA2+x)) 
Outlj= 
1 
(1+х®у (х.х 
In[]:=Factor[%] 
Ош = 
1 
хх) (Tr 
1[:=Араг 9%] 
Out[]= 
1 1 -1-х 
x 2{1+х ` 2(1+32) 
In[[:=r3=(2x+3)/(xA2+3x-10) 
Out[]= 


3+2х 
-10+3х+ x2 
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In[]|:=Apart[%] 
Out[]= 


=. = НЕЙ 
去 角 函数 运算 函数 见 表 1-5-3. 
#153 ”常用 的 三 角 函 数 运算 函数 


K 数 说 明 
TrigExpand[ 表 达 式 ] 将 三 角 函 数 表达 式 转化 为 和 差 的 形式 
TrigFactor[ 表 达 式 ] 将 和 差 形 式 的 三 角 函 数 转化 为 乘积 的 形式 
TrigReduce[ 表 达 式 ] 用 倍 角 的 方法 化 简 三 角 表 达 式 
TrigToExp[ 表 达 式 ] 将 三 角 消 数 表 达 式 化 为 指数 形式 
了 xpToTrig[ 家 达 式 ] 将 指数 形式 化 为 三 角 消 数 表达 式 


注意 : À 1-5-3 列 出 的 函数 不 仅 对 普通 的 三 角 通 数 是 适用 的 ， 对 双 曲 画 数 也 是 过 用 的 。 


例 1.5.4 有 关 三 角 函 数 的 各 种 运算 。 
Tn[1:=TrigExpandI[(1+Sin[x])/(Sin[x]*(1+Cos[x]))] 
Onut[]= 

1+Cscfx] 

1 + Соѕ[х] 
In[]:=TrigReduce [Sin[x]*Cos[x]] 
Out[]= 

5 512 х] 
Tn[]:=TrigToExp [Тап[х]] 

Out[]= 

i (eix еіх) 

eix, eix 

四 、 化 简 表 达 式 

常见 化 简 函 数 见 表 1-5-4. 


表 1-5-4 ”常用 的 表达 式 化 简 函 教 


а 数 说 明 
Simplify[ 表 达 式 ] 化 简 表达 式 
FullSimpsify[ 表 达 式 ] 完全 化 简 表达 式 
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#155 化 简 表达 式 。 
In[]:=Simplify[Sin[x] 2+Cos[x]*2] 
Qut[]= 

1 
Tn[]:=FuallSimplify[(2x+3)/(xA2+3x-10)] 
Out[]= 

1 1 
3 5+x 


五 、 方程 (8) 求解 
求解 方程 (组) 函数 见 表 1-5-5。 
Ф155 ”常用 的 求解 方程 组) 函数 


É 数 说 B 
Solve 72068) ЖЕ }] 求 方程 (组 ) KARE 
NSolye[ 方 程 (组 ),{ 变 量 ]] 求 力 程 (组 ) 的 近似 解 
五 ndRoot[ 方 程 ,[ 变 芋 , 初 值 上 用 Newton 法 求 方程 在 初 值 附近 的 近似 解 


FindRoot[ 方 程 ,{ 变 量 ,{ 初 值 1, 初 值 2}] 用 割 线 法 求 方程 的 一 个 近似 解 


FindRoot[ 方 程 组 ,{ 变 量 1, 初 值 2},{ 变 量 


用 Newton 法 求 方程 组 的 一 组 近似 解 
2,#ИН 2}] 


11.5.6 RARAHI x? +2х—7=0 的 根 。 
In{]:=Solve[x^2+2x-7==0,x] 
Out[]= 
[09 -1-2V2}, {хэ-1+2/2}} 
In[]:=N[%] 
Out[]= 
{{X= -3.82843), {хэ 1.82843)) 


例 1.57 зоти 人 M+y=0 的 解 ， 其 中 a 为 常数 。 


х+(+а)у=0 
In[]:=Solve[{a*x+y==0,x+(1+a)*y==1} {x,y H 
Out[]= 


1 
х-ы Y> 172781) 


#1158 求 代数 方程 xs +x+1=0 的 全 部 解 。 
In[]:=NSolve[x^S+x+1==0,x] 
Outl]= 


{{х -0.754878}, {хә -0.5- 0.866025i}, {хә -0.5+ 0.866025i), 
{хә 0.877439- 0.7448621}, {хә 0.877439 + 0.7448621}} 
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159 Ж PPE 3cosx-Inx=0 {Ех =1,х =10 БЕ ИН. 
In||:=FindRoat[3Cos[x]==Log[x],(x,1]] 
Out[]= 
{x> 1.44726) 


Tn[]:=FindRoot[3Cos[x]==Log[x],(x,101] 
Out[]= 


{хә 13.1064} 


实验 内 容 
练习 1 将 下 列 有 理 式 化 为 简单 真 分 式 之 和 。 
02; (2) 00 

x+1' 


(х+1)(х-1) j 


1 А 
GHNA? TXTD 


(5) 200-2 — 
CETT 


练习 2 画 出 函数 ?= er sinx-xcos2x 的 图 形 , 并 求 方程 ex sinx- хсов2х =0 ЖЖ 
的 5 个 根 。 


练习 3 (1) 求解 关于 x 的 方程 ，ax? +(34a+b)x-10(3a 一 b)=0， 并 将 结果 化 简 。 
(2) 求 出 此 方程 当 a =1,b=2 时 的 解 。 

(3) 计算 此 方程 的 两 根 之 和 与 两 根 之 积 。 

练习 4 求 下 列 方程 的 近似 根 : 

(1) x +3x-1=0; 

(2) xigx=1; 


(3) x=asinx+b. 
& 5 分 解 因 式 x" —1п=20,50,234,678,.... 
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实验 1-6 ” 表 的 生成 及 其 运算 


实验 目的 
L 理解 表 的 概念 。 
2. 党 握 构 造 表 的 方法 。 
3. 掌握 Range, Table, NestList 函数 。 
4. 会 对 表 进 行 各 种 处 理 。 

实验 指导 
一 、 表 的 概念 


“Ж” (List) 是 Mathematica 系统 里 一 种 重要 的 表示 结构 ， 它 用 于 表示 相互 有 关系 的 一 
组 表达 式 。 表 示 形 式 是 用 花 括号 括 起 来 的 若干 表达 式 ， 表 达 式 之 间 用 去 号 分 隔 开 ， 可 用 于 表 
示 数 学 中 的 向 量 、 和 矩阵 、 集 合 等 。 
例 1.6.1 各 种 表 的 例子 。 
CD {12,4,816,32} (用 表 表 示 集 合 )， 
C2) (11.0.0),10.1.0),10.0.1) 1 HERTE): 
C3) ( Sinfx], Cos[xl, Exp[x1 } (用 表 表 示 函 数组 )。 


二 、 表 的 生成 
生成 表 的 函数 见 表 1-6-1。 
表 1-6-1 ”常用 的 表 的 生成 函数 


ш 数 说 明 
Range fE #c fN 步 长 数值 表 的 生成 函数 
талера Ж TESEI 
Алтау Н) | 特殊 表 的 生成 函数 
NestList[ 阔 数 , 初 值 , 递 推 次 数 ] 递 推 表 的 生成 函数 
三 、 循 环 描述 的 形式 


构造 通用 表 的 循环 描述 的 一 般 形式 为 : { 循 环 变量 ,循环 初 值 ,循环 终 值 , 步 长 } 
循环 变量 、 夭 环 初 值 、 循 环 终 值 和 步 长 可 为 整数 、 有理数 和 实数 。 当 步 长 为 1 时 可 省 咯 ， 
当 循 环 初 值 为 | 时 也 可 和 省略。 
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例 1.6.2 


ШИК 


Ош 


Inf]: 


Range 函数 的 使 用 方法 。 
=Range[ 10 ] 


1,2,3, 4, 5, 6, 7, 8, 9, 10} 


:=Rangefs, 15 ] 


{5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15) 


:=Range[ 1, 5, .5 ] 


(1, 1.5, 2., 2.5, 3., 3.5, 4., 4.5, 5.) 
Table 函数 的 使 用 方法 。 


:=Table[ (-1)^п, {n,10} ] 


4-1,1, -1, 1, -1, 1, -1, 1, -1, 1} 


:=Table[l -x^n, (n,1,15,2)] 


(1-x, 1-9, 1-2, 1-7, 1-9, 1-5, 1-2 1-5} 


‘=Tablefx^i+y^j 2120 


бху, x+), py, зуд) 


:=Table[N[Sin[x*Degree]],{x,30,35}] 


{0.5, 0.515038, 0.529919, 0.544639, 0.559193, 0.573576) 


:=t=Tableli+j-k,{i,1),{f,2},{k,3}] 


{{{1, 0, =1), {2, 1, 0))) 
=TableForm[t] 


Out[]= 


PI 1.6.4 
Іар: 
Ош 


1 2 

0 1 

-1 0 

用 NestList 构造 递 推 函数 。 
= flx_]:=1/(1+x);NestList[f,t,3] 


]= 


In[]:=gíx_]:=Sqrt[2+x];NestList[g,x,3] 
Out[]= 


— 3⁄4 — 


nooo | 
(5, М.х, М2: у2+х, 2+ У 2 


Inl l:=N{NestList[g,0,10]] 
Out[]= 


{0-, 1.41421, 1.84776, 1.96157, 1.99037, 1.99759, 1.9994, 


1.99985, 1.99996, 1.99999, 2., 2., 2., 2., 2.,2.,2.,2., 2.,2.,2.} 
Д. ЖАНЕ 
ЗОО ЕН ЕВ ЖА, 1-6-2. 
#162 ”常用 的 家 的 操作 函数 
ш ж 说 g 

Таке л} AE ERRAR m 8 n АОЛ 

гор (ъл)! МЯ т B) n л 

Length[ 表 ] 求 出 表 的 长 度 

Sort[ 表 ] 求 出 表 的 元 素 按 标 准 硕 序 重 排 后 得 到 的 表 

Reverse[22] 求 出 原 表 反 序 后 的 表 

Union[ 1, 表 2,.…] HRL #2 … 作 为 集合 求 并 

Tntersection[Ë 1,% 2,.…] 将 表 1， 表 2 … 作 为 集合 求 交 

Complement[ 表 1,# 2, 3,...] 求 表 2， 发 3 … 相 对 于 表 1 的 补 集 


例 1.6.5 用 表 定义 集合 并 进行 各 种 运算 ， 
InI]:=a=Range[ 10 ] 
Out[]= 
(1, 2,3, 4, 5, 6, 7, 8, 9, 10) 
In[]:=b=Range[5,15 ] 
Out[]= 
{5, 6, 7, 8, 9, 10, 11, 12, 13, 
In[]:=Unioní[a,b] 
Out[]= 
{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
In[}:=Intersection[a,b] 
Out[]= 
{5, 6, 7, 8, 9, 10} 
Inf]:=Complement{b,al 
ОшП= 
(11, 12, 13, 14, 15) 
In[]:=Complement[a,b} 
Out[]= 
il, 2,3, 4) 


14, 15} 


11, 12, 13, 14, 15) 
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实验 内 容 


练习 1 构造 下 面 的 表 : 
| £ = = 
(1) {1 4, 9, 16, ..., 10000}; (2) l, Ж Шш” 200 © 


练习 2 RERA x, = (L+ 了 "的 前 =10，100，1000 项 的 值 ， 画 出 散 点 图 ， 分 别 从 几何 
n 


和 数值 上 观察 随 着 的 增 大 ， 数 列 z 的 变化 趋势， 


练习 3 TELTENE 二 ， 取 -5.10,20， 画 出 函数 的 图 形 ， 并 求 函数 值 
2+ 


РО), fO, уса). 
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实验 1-7 ”一 元 微 积 分 的 基本 运算 


实验 目的 


Г. 掌握 利用 Mathmatica 进行 一 元 函数 微 积分 运算 的 基本 方法 。 


一 、 求 极 


实验 指导 


求 极限 函数 见 表 1-7-1. 


甫 1-7-1 常用 的 求 极限 函数 


й ж 说 明 
Limit[f[x],x->x0] 无 趋 于 xo 时 函数 的 极限 
Limit[ffx1,x->x0,Direction->1) xF хо 时 函数 的 左 极限 
Limit[f{x];x->x0,Direction->-1] x ЮР xo 时 函数 的 右 极限 
Limit[f[x] x->+Infinity] x => + 时 函数 的 极限 
Limitif[x],x->-Infinity] x — —° 时 函数 的 极限 
Limitfrnjn->infinity] 数列 的 极限 
例 1.7.1 求 函数 的 极限 : 

In[]:=Limit[(1+1/n)^n,n->Infinity] 

Ош 
е 

In[]:=Limit[1/(1-x)-3/(1-xA3),x-> 1] 

Ош[= 
-1 

In[]:=Limit[(Exp[x]-Exp[-xD/Sin[x],x-> 0] 

Out[]= 
2 

In[]:=Limit[1/Sin[x]A2-1/ xA2,x-> 0] 

Ош]. 
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In||:=Limit[Cos[x] A (Pi/2)-x,x-> Pi/2] 
Out[]= 
1 


二 、 求 函数 的 导数 和 微分 
微分 运算 函数 见 表 1-7-2. 
表 1-7-2 常用 的 微分 运算 西数 


й Ж 说 明 
[хх] 求 f(x) 的 一 阶 导数 
МЕХ) x, n Rf л 
Dtflx,ylx]l,x1 Ж f(x. y) З x EROR y 23 x ERO 
рг [x]] Ж f(x) 的 微分 


例 1.7.2 ”验证 求 导 公式 。 
In[]:=D[u[x]*v[x],x] 
Out[]= 
V [x] W [x] + u[x] V [х] 
In[]:=D[u[x]/v[x],x] 
Out[]= 
ціх] щх] V [x] 


vix} ур? 
P173 求 函 数 的 导数 和 微分 。 
In[]:=D[Sin[2x]/x,x] 
Out[]= 
2Cos[2x] _ Sin(2x] 

x х? 
InD:=D{Exp[x]*Cos[x],{x,4}] 
Out[]= 

-4e*Cos[x] 
In[]:=D[xA2*Sin[2x],(x,10]] 
Out[]= 
-20971520 xCos[2 xj - 99614720 Sin[2 x] + 10485762 5їп[2х] 
In[]:=Dt[ArcSin[Sqrt[1-x^2]]] 
Out[]= 
хрх] _ 
мё уз 
B174 Жин. 
In[]:=dif= О[у[х]-1-х*Ехр[у[х1],х] 
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Out[]= 

-e „у [x] -e 
Tn[]:=Solve[dif==0, у'[х]] 
ОшП= 


хүүх 


ух 
а тоа) 
例 17.5 求 抽象 函数 的 导数 。 
In[]:=D[x*fTx^2],x] 
Out[]= 
£102] 22 Ep 
I1n[]:=D(TfISin[xJA2]+ f[Cos[x]A2],x] 
Out[]= 
-2Costx] Sintx] f {Cos{x] 2) + 2Соз[х] Sin[x] #[5їпгх]?] 
三 、 函 数 的 Taylor 展开 式 
利用 函数 Series[fIx],(x,x0,n)] 可 以 容易 地 求 出 任何 可 导 函 数 S) E xo ВНР Peano 
型 余 项 的 = ИТ Taylor EFR, M Normal 函数 可 以 去 掉 展 开 式 中 的 余 项 ， 得 到 ТО) 的 Taylor 
多 项 式 。 
例 17.6 求 y=sinx 的 10 阶 Maclaurin 多 项 式 。 
In{]:=Series[Sin[x],{x,0,10}] 
Out[]= 


= x x ? ju 


6 ` 120 ` 5040 ' 362880 O 
In[]:=Normal[%] 
Out[]= 
x 
6 120 5040 362880 
例 1.7.7 Жу) =e" sin x fI 5 B Maclaurin 多 项 式 。 


In[]:=NormalíSeries[ Exp[x]#Siníx],(x,0,5)]1 
Out[]= 


n = È 
3 


30 
四 、 函 数 的 积分 
积分 运算 函数 见 表 17-3. 


一 39 一 


表 1-7-3 ”常用 的 积分 运算 函数 


ш 数 й 明 
Integrate[ {(х),х] 计算 不 定 积分 | 了 (dx 
Integratel (б), x, a, ЫЈ] AMEBA |? одах 
NIntegrate[ б), x, a, bj] 计算 数值 积分 | И (х)бх 


#1178 求 各 类 积分 。 
In[]:= Integrate[1/(xA2-1),x] 
Out[]= 


2190-1.) - 3 Log[1+ x] 


In[]:=Simplify[D[%,x]l © * 用 微分 验证 运算 结果 * ) 
Out[]= 
1 1 
2(-1+х) 2(1+>) 
In[]:= Integrate[1/x*Sqrt[x*2 - 1],{х,-2,-1}] 
Out[]= 


= m 
- 3 > 
/ 13 


In[]:= NIntegrate[Sin[x]/x,[x,1,2)] 
Out[]= 
0.65933 
例 1.7.9 利用 Integrate 函数 计算 广义 积分 。 
In[]:= Integrate[1/x^4,{x,1,Infinity}] 
Out[]= 
工 


3 


In[]:=Integrate[1/Sqrt[x],(x,1,Infinity]] 
Out[]= 


1 
Entegrate::idiv : Integral of = does not converge on {1, œ}. 
x 


信息 提示 广义 积分 不 收 伊 。 


实验 内 容 


练习 1 自由 练习 求 一 元 函数 导数 和 微分 的 运算 ， 
练习 2 自由 练习 各 种 求 一 元 函数 积分 的 运算 。 
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实验 1-8 ”三 维 图 形 的 绘制 


实验 目的 
握 利 用 Mathematica 绘制 二 元 函数 图 形 的 基本 方法 。 
2. 0 Plot3D, ParmetricPiot3D, ListPlot, ContourPlot 函数 。 


З. 会 利用 Plot3D ва 8 hg u ERN PEET Ei, 


实验 指导 


一 、 基 本 作 图 函数 Plot3D 


二 维 绘 图 最 基本 的 函数 是 Plot3D， 其 使 用 形式 如 下 : 
Plot3DIf(x,y),{x,x1,x2},{y,y1,y2}, 可 选项 ] 
例 1.8.1 HHRH z= sin 的 图 形 。 
In[];=Plot3D[ Sinfx y]J,{x,0,Pi},{y, 0,Pi)] 
Out[]= 
- SurfaceGraphics ~ 


输出 图 形 如 图 1-8-1 所 示 。 
二 、 用 可 选项 修饰 图 形 
与 Plot 函数 一 样 ，Plot3D 也 有 许多 可 选项 可 以 用 来 修饰 二 维 图 形 的 外 观 。 其 使 用 方法 与 


Piot 中 的 可 选项 类 似 。 表 1-8-] 给 出 了 Plot3D 通 数 常用 的 可 选项 。 
表 1-8-1 Plot3D 的 常用 可 选项 
可 选项 RUA ЕС 
PlotPoint 15 
PlotRange Automatic 
ВУ AspcetRatio 1 作 图 高 、 宽 比例 ， 可 以 说 明 为 任意 数 人 
Boxed True ТРАП ЗЕ 
— BoxRatios 11:94 说 明 图 形 立 体 框 在 三 个 方向 上 的 长 度 比 
Viewpaint Bag | ETETETT 
o Shift+Crrl+V 9:8 ViewPoint 的 值 
Mesh True ЖЕЛ ШШ ЕЖЕ РИНЕ, ОГ False ДЕЎ БЇ 
~ HiddenSurface True 说 明明 面 被 挡住 的 部 分 是 否 隐 拉 
Shading True WB T LESANE 


一 和 一 


例 1.8.2 画 出 z=sinxy 的 图 形 ， 去 掉 网 格 和 立体 框 。 
In[]:=Plot3D[ Sin[x y],(x,0,Pi),(y, 0,Pi),Boxed->False,Axes->False, 
PlotPoints->50,Mesh->False] 


Out[]= 
- SurfaceGraphics - 
输出 图 形 如 图 1-8-2 所 示 。 


图 1-8-1 图 1-8-2 


三 、 三 维 参数 作 图 
三 维 参数 作 图 函数 可 以 用 来 画 空 间 曲 面 和 曲线 的 图 形 。 其 使 用 形式 如 下 : 
ParametricPlot3D [{x(u,v),y(u,v),z(u,v)},{u, FB, EB8),(v, КЮ, ERJ 
例 1.8.3 画 单 位 球面 和 圆柱 螺 线 的 图 形 。 
In[]:=ParametricPlot3D 
[(Sin[u]*Cos[v],Sin[u]*Sin[v], 
Cos[u]},{u,0,Pi},{v,0,2Pi}] 
Out[]= 
- Graphics3D - 
输出 图 形 如 图 1-8-3 所 示 。 
In[]:=ParametricPlot3D 
[(Sin[t],Cos[t],/3 },{t,0,15 }, 
AspectRatio->1] 
Out[]= 
= Graphics3D - 
输出 图 形 如 图 1-8-4 所 示 。 


例 1.8.4 画 出 旋转 曲面 z= x? + y2 的 图 形 。 


In[]:=ParametricPlot3D [(u*Sin[v]u*Cos[v]uA2 },{u,0,2},{v,0,2Pi}] 
Out[]= 
- Graphics3D - 


一 4 一 


输出 图 形 如 图 1-8-5 所 示 。 


图 1-8-4 图 1-8-5 


四 、 空间 曲面 的 等 高 线 图 
利用 函数 ContourPlot 可 以 画 出 函数 z = f(x, у) 在 指定 区 域 上 的 等 高 线 图 , 其 使 用 形式 如 


ContourPlot[ffx,y],{x, 上 限 ,下 限 },{y, 上 限 ,下 限 }, 可 选项 ] 
例 18.5 画 出 函数 z=x?+y? 的 等 高 线 图 。 


In[]:=ContourPlot[x^2+y^2,{x,-Pi,Pi},{y,-Pi,Pi}] 
Out[]= 
= ContourGraphics - 

输出 图 形 如 图 1-8-6 所 示 。 

例 1.8.6 画 出 函数 ¿= зіп xcos у 的 等 高 线 图 。 
In[]:=ContourPlot[Sin[x]*Cos[y],(x,-Pi,Pi),(y,-Pi,Pi)] 
Out[]= 

= ContourGraphics - 
输出 图 形 如 图 1-8-7 所 示 。 


ContourPlot 也 有 许多 可 选项 ， 见 表 1-8-2, 其 使 用 方法 与 Plot 中 的 可 选项 类 似 。 
表 1-8-2 ContourPlot 常用 的 可 选项 


可 选项 кил 说 BJ 
ColorFuntion Automatic ЖЕНА PEB BE, Hue 表示 使 用 一 系列 的 色彩 
~ Contours 10 设 定 等 高 线 的 条 数 
PlotRange Automatic 图 中 所 包括 的 值 域 ， 可 以 设 定 {Zmin,Zmnax} 
ContourShading True 是 否 使 用 明暗 度 
PlotPoints 15 在 每 个 方向 上 的 计算 点 数 


例 1.8.7 画 出 函数 z=x?+y? 的 5 条 等 高 线 图 并 去 掉 图 中 阴影 。 


In{]:=ContourPlot[x^2+y2,{x%,-Pi,Pi},{y,-Pi,Pi},Contours->5, 
ContourShading->False] 


Out[]= 
- ContourGraphics - 
输出 图 形 如 图 1-8-8 所 示 。 
利用 ContourPlot ЖЕТИ ЕА, 


11.88 TiN каа 的 图 形 。 


In[]:=ContourPlot[xA2/09+yA2/4-1,[x,-Pi,Pi),(y,-Pi,Pi),Contours->1, 
ContourShading->False,PlotRange->{0.,0.}) 


Out[]= 
- ContourGraphics - 
输出 图 形 如 图 1-8-9 所 示 。 


3| Е) 
а г 
2 1 
O о 
-1 -1| 
-2 -2 
-@| -3 
-23 -2 -1 о 1 2 3 -3 -2 -1 о 1 2 3 
图 1-8-8 图 1-8-9 
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实验 内 容 
练习 1 用 Plot3D 函数 绘制 下 列 函数 的 图 形 ， 并 对 图 形 的 外 观 进 行 适当 的 修饰 
(1) RH z=x2+y2; 


(2) MA y? =2x; 
(3) PE x-y=0; 
(4) 旋转 抛物 面 y? +z? =5x。 


练习 2 用 ParametricPlot3D 函数 绘制 下 列 务 数 的 图 形 ， 并 对 图 形 的 外 观 进行 适当 的 修 
和 饰 。 


2 у 2 . 
(1) Ж ЖШ кааш 


2 
(2) PRAE 5+7—5—1; 
a 
(3) 双 叶 双 曲 面 Z+- 
2 2 
(4) ХШ ->+ =z (paq E y; 
2р 24 
(5) HEE x +y’ =l; 


2 2 
(6) ЖВНЕ 2 =1。 
9 4 


练习 3 H БЕЗЕ ARAE. 
练习 4 自由 练习 绘制 各 种 函数 的 等 高 线 图 。 
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实验 1-9 ”多 元 微 积 分 的 基本 运算 


实验 目的 


1. 会 利用 Mathematica 进行 多 元 函数 微 积 分 的 基本 运算 。 


2. 9) 0, Dt, Intergrate #1. 


实验 指导 
一 、 求 偏 导数 和 全 微分 
多 元 微分 运算 函数 见 表 1-0-1. 
表 1-9-1 常用 的 微分 运算 函数 
КИТ 说 m 
Dix жатк 
ах 
ы x, oh 求 高 仿 阶 导数 = 
DIf41.2,...am] REMETAS TER 
р] 求全 微分 PE) : 
Dilfx] 求全 导数 £ 


例 1.9.1 求 一 阶 偏 导数 。 
Im[:=DfSqrt[2x+3yJxj 


Ош[]= 
1 
V2xr3y 
In[|-=DIGx-y)/(x+y),xJ 
Ош]= 
х-у 1 


тур ху 
I[]:=DI(x-y)/(x+y),y] 
Out[]= 


一 条 一 


x-y 1 
(x-y)? x+y 
192 RARAS 


In[]:=D[Sqrt[2x+3y]x,y] 


Out[]= 
3 

72 (2х+3у) 3/2 
In[]:=D[Log[x+2yA2+3zA3],x,y,z] 
Out[]= 

ye 
(x+ 2y2, 3 23)3 
В pn _ x ь ди СИА 
9193 设 广 具有 二 阶 连续 的 偏 导 数 ， "=f 求 а" ay 


In[]:= DIfix,x/y],x] 
Out[]= 


£0 [x z] ите, 2) 
y 


In[]:=D[flx,x/y],x.y] 
Out[]= 


EOD |х, z] xf [x z] хЁ +» [x 2) 


ү u уз y2 


例 1.9.4 求全 微分 。 
Tn[]:=Dt[y/Sqrt[xA2+yA2] ] 


Outfj= 
Dely] у (2x<Dt[x) + 2урцу]) 
ПЕ. ү? 2 (0 + y2y 3⁄2 
=. 计算 黑 次 积分 


利用 Integrate[f,[x,a,b),[y,c,d),...] 函数 可 以 完成 多 重 累 次 积分 的 计算 。 


例 19.5 计算 累 次 积分 | ае а?а». 


In[]:=Integrate[(4-r^2)*r^2,{t,0,2Pi},{r,0,2}] 
Out[]= 
1287 
15 
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4 доол, > 
#1195 WARRE | yf] a? +y d. 


Inf]:=Integrate[x^2+y^2,{y,0,4},{x,y/2,Sqrt[y]}] 
Out[]= 
216 
35 
例 1.9.7 计算 累 次 积分 | def? dyf ioe de. 


Tnl]:=Integrate[x*y*zA2,(z,03),1y,-12),(x,0,11] 
Out[]= 
27 


1-х 
例 19.8 计算 黑 次 积分 | a|: o| aqe. 


In[]:=Integrate[x,[x,0,1),(y,0,(1-x)/2),(z,0,1-x-2y]1 
Out[]= 
1 


48 


实验 内 容 


练习 1 自由 练习 用 Mathematica 进行 多 元 函数 徽 分 学 的 各 种 运算 。 
练习 2 自由 练习 用 Mathematica 进行 多 元 函数 积分 学 的 各 种 运算 。 
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实验 1-10 “无穷 级 数 与 微分 方程 


实验 目的 


会 利用 Mathematica 判断 常数 项 级 数 的 收敛 性 、 求 常数 项 级 数 的 和 函数 。 
.会 利用 Mathematica 进行 素 勒 级 数 展开 、 进 行 罕 级 数 的 各 种 运算 。 

.会 利用 Mathematica 求解 微分 方程 。 

掌握 Sum, Series, DSolve 函数 。 


实验 指导 


һө 


一 、 求 常数 项 级 数 的 和 
函数 би, Infinity 不仅 可 以 用 来 判断 级 数 的 收 伊 性 ， 同 时 可 以 用 来 求 常数 项 级 
数 和 。 
例 1.10.1 判断 数 项 级 数 De 的 收 化 性 并 或 和 。 
n=l 
Tol]:=Sum[1/^2,{i,1,Infinity}} 
Out[]= 


д 


6 
11102 ани YL 的 收敛 性 。 


"=i 


In[]:=Sumll/i,ti,1,Infinity)) 


Outll= 
Sum: :div : Sum does not converge. 
信息 提示 下 级 数 不 收 笋 。 
=. FREF 


使 用 函数 Бегіеѕ[6(х,х0,л РМТР. 
例 1.10.3 用 函数 Series ВИТР. 
In[]:=Series[Exp[x],{x,0,5}] 
Out[]= 


№ g x< х5 
lxt +— + — +, — 
2 6 24 120 
Tn|]:=Series[Exp[x]/xA2,[x,0,5)] 
Out[]= 
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1. 1 1.x X. аё ою о» 
X x 21 6 24 120 720 5040 
1n[]:=SeriesIExp(Sqrt[x]),(x,0.5J1 


Out[]= 
— x x3⁄2 x? хә? x 2/2 
1+ух+ + ог t 596 + 550 + OI] 
In[]:=Series[Expj|1/x],[sx,Infinity,5)1 
Out[]= 
1 1,1,2 2,1,3 1,1,4 1 0105 116 
tatala) š sl бы (5 баз (s) ОБ 


HERRE- 些 特殊 点 是 无 法 展开 成 为 察 级 数 的 ， 出 现 这 种 情况 时 Mathematica 会 给 出 
警告 信息 。 例 如 : 
In[]:=Series[Exp[1/x],(x,0,5)] 


1.06 
Series;:esss : Essential singularity encountered in ех 20 
Out[]= 


Series|e*, (x, 0, 5] 


=. ШЕШЕЙ 


Mathematica AFN RAPHI # ЖЕ. 
011104 ЖЕТЕН. 


InD:=Series[Exp[x],{x,0,5}] 
Out[]= 
х x 6 
зах... 
* 6 *24°120° Or 
In[]:=% 2 
Out[]= 
42 2⁄4 4x5 
| 1+2х+2?+ + + + 6 
Ы 3 3 tg 900 
| In[]:=D[%,x] 
Out[]= 
Е 4 
Darig, 820, 40 + O[X]S 
In[]:=Integrate[ %,x] 


Out[]= 
4% 28 4 
2x+ 22 T 2х 6 
х + 3 3 15 +О[х] 
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д. REARDAN 


AR Sum[f(x),(n,0,Infinity)]E] AA RR ЖЖП Ж. 
例 1.10.5 利用 Sum 函数 求 寡 级 数 的 和 函数 。 
Tn[]|:=Sum[xAn/n!,(n.0,Infinity)] 
Out[]= 
e 
In[]:=Sum[(-DA(n-D*xA(2n-1)/(2n-1),(n,0,Infinity?] 
Out[]= 
-1-хАгСТӨӘП{Х] 


х 
In(]:=Sum[xA(2n-1)/(2n-1),1n,0,Infinity)]] 
Out[]= 


五 、 解 常 微分 方程 
函数 DSolve[ 微 分 方程 ,y[x],x] 可 以 求解 关于 у(х) 的 微分 方程 。 


011.106 求 一 阶 线性 非 齐 次 方程 y+ycos х= ex 的 通 解 。 


Tn[]:=DSolve[y ' [x]+y[x]#Cos[x]==Exp[-Sin[x]],y[x],x] 
Out[]= 
HYD э 6790909 x, e SIA Сууу) 


B1107 求 常 系数 两 阶 线性 非 齐 次 微分 方程 y' -2y+5y= 2ex 的 通 解 。 


In[]:= Clear[y]; 
DSolvely ' ' [х]-2*у?[х]+8*у[х]==2*Ехр[х],у[х],х] 
Out[]= 


1 ; 
[уг > e=Cr21 cosl2 + 3 e*Cos[2x]2 - e“C(11 Sin[2 x} + Ç e*Sin(2xJ2]) 


例 1.10.8 ЖЕЛЕ Py t y y'= 3x2 的 通 解 。 


In[]:=Clear[y]; 
DSolvefx^3*y ' ' ' [x]#xA2y ' ' [x]-4x*y ' [х]==3х^2,у[х],х] 
Out[]= 
x СЇ] 
C S 
函数 DSolve[{ 微 分 方程 , 初 值 条 件 }jy[x],x] 可 以 求解 关于 у(х) 的 微分 方程 满足 初 值 条 件 的 
特 解 。 


ñ Žec 213)]} 
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例 1.109 求解 微分 方程 00- y(ytan x = sec x Д UAE £ E N|. o= 0 的 特 解 。 


Tn[]:=Clear[y]; 

DSolve[í(y ' [x]-y[x]*Tan[x]==Sec[x],y[0]==0],y[x],x] 
Out[]= 

Uy [x] > xSec[x];) 


实验 内 容 


练习 1 自由 练习 利用 Mathematica 进行 有 关 无 穷 级 数 的 赂 种 运算 。 
练习 2 自由 练 可 利用 Mathematica 求解 各 种 类 型 的 微分 方程 。 
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实验 1-11 ， 向量、 矩阵 的 运算 与 线性 方程 组 求解 


实验 目的 


‚ 会 利用 Mathematica я: X i EFEK 
.掌握 利用 Mathematica 777 ХААНА 
.掌握 利用 Mathematica 求解 线性 方程 组 的 方法 。 
4. 掌握 DiagonalMatrix, TdentityMatrix, Transpose, Inverse, MatrixPower, 
Eigenvalues, Eigenvectors, Minors, LinearSolve, NullSpace 等 函数 。 


实验 指导 


w 一 


一 、 向 量 与 矩阵 的 定义 方法 


Mathematica 中 可 以 通过 键盘 直接 输入 矩阵 或 向 晤 , 将 要 输入 的 矩阵 的 元 素 依次 写 入 { 上 
中 ， 逐 行 写 入 ， 用 逗号 分 开 ， 外面 再 括 以 花 括号 { “}。 输入 时 一 般 要 将 矩阵 赋值 于 一 个 字母 ， 
以 便 后 面 调用 。 
例 1.11.1 定义 矩阵 。 
In[]:=t={{1,0,0},{0,1,0},{0,0,1}} 
Out[]= 
101, 0, 0), {0,1,0}, {0, 0, 1), 
Inil:=MatrixFormí[t] 
Outl]= 
100 
[o 1 °] 
001 


Mathematica 19 рага ЖЕ АЕО Е, Æ 1-11-10 
表 1-11-1 。 定义 向 量 与 矩阵 的 常用 函数 


ж Ж 说 明 
Array[a,n] 构造 一 个 天 维 向 量 
Array[a,{m,n}] 8 — m fT n PERE 
Tableļffi],{i,imin,imax,di}] 构造 元 素 为 f{i) 的 向 量 
Table[fli,j], {i imin imax,di},{j}minjmax,dj}] ETRA f G, j) 的 矩阵 
DiagonalMatrix[tist] 以 集合 list rR Л.Ж 2924 8 6301 АН: 
IdentityMatrix[m] 构造 严 阶 单位 矩阵 
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例 1.11.2 使 用 IdentityMatrix，DiagonalMatrix 构造 特殊 矩阵 。 


ы[:=С1еаг[1]; 
t= IdentityMatrix[3]; 
MatrixForm[t] 
Out[]= 
100} 
[ 1 °| 
001 
In[]:=Clear[a,b,c]; 
DiagonalMatrix[{a,b,c}] 
Out[]= 
((a, 0, 0}, (0, b, 0), (0, 0, e)) 
In[]:= MatrixForm[%] 
Out 由 = 
{б оо 
0 b o) 
t0 0 ec 
例 111.3 {EH Array 函数 构造 特殊 矩阵 。 
In[]:=MatrixForm[Array[a,(3,2)]] 
Out[]= 


а[1,1] all, 2] 
(az 1] af2, 2] | 
a[3, 1] а[3,2] 


#11114 使 用 Table 函数 构造 特殊 矩阵 。 
InD:=MatrixForm [Table[ffij],{),3},{j,2}] 
Out[]= 

£[1, 1) #1, 2] 
(az 1] #2, 2] | 
ЕЕЗ, 1] f[3, 2) 


In[]:=MatrixForm[Table[i+j,(i,3),1j,2)]] 
Out[]= 


23 
四 
45 

二 、 向 量 与 矩阵 的 运算 

向 景 与 矩阵 运算 函数 见 表 1-11-2。 


— 5 — 


表 1-11-2 ”向 量 与 矩阵 运算 的 常用 函数 


函数 说 明 

A H c RIRE 
uv 向 量 内 积 
Av FERNE 

САВ HEM 
'Transpose[M] 求 矩 阵 的 转 置 
Inverse[M] 求 矩 阵 的 道 矩 阵 
DetIM] ИШЕТ ТУУЛ 
Minors[M,k] 求 炬 阵 所 有 的 大 阶 子 式 
MatrixPower[M,n] REREN n КЖ 
EigenvaluesIM] REFIERE 
Eigenvectors[M] 求 数 宁 矩 阵 的 特征 向 量 


例 1.11.5 ”构造 矩阵 并 进行 各 种 运算 。 

In[]:=m={{2,0,1},{0,2,3},{1,1,0}} 

Out[]= 
((2, 0, 1}, (0, 2, 3), (1, 1, 0)) 

ш[:=п={{1,1112,-1Ь-11} 

Out[]= 
41,1), (2, -1), (-1, 1)) 

Tn[]:=m.n 
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Out[ 


hl 


In[ 


{1,3}, (1, 1), 


:=c=Inverse[m] 
Out[]= 


{{1, 0,0), {0, 


:=Eigenvalues[m] 
Out[]= 


13, 0}} 


1, 0}, (0, 0, 1)) 


{2, 1-У5, 1+5} 
In[]:=Eigenvectors[m] 
Ош= 


1 3 1 1 


3 


[it 1,0), f 


1.5 1545 Р [Z 


-1. y5" 


1) 


5 2 -6 -3 
ашта 7 -2 4 
例 1.11.6 计算 行 刘 式 | 6 ° É 3 的 值 


7 -8 -10 5 
щ[1:=ш={{5,2,-6,-3},{-4,7,-2,4),{-6,9,12,3),{7,-8,-10,5}}; 
Рет] 
Out[= 
5472 
三 、 求 解 线性 方程 组 
解 线性 方程 组 函数 见 表 1-11-3。 


家 1-11-3 ”求解 线性 方程 组 的 党 用 函数 


ш Ж 说 明 
LinearSolve[M,u] 给 出 方程 组 Mx =& 的 解 向 其 
NullSpace[M] 给 出 方程 组 Mx =0 的 一 组 基 向 量 


例 1.11.7 求 非 齐 次 线性 方程 组 


X, — x, —X3+x4=0 
хрх + X3 -3x4 =1 


X = X; — 2x3 +3X4 --5 


的 通 解 。 
(1) 先 求 对 应 齐 次 方程 组 的 一 个 基础 解 系 。 
IDn[]:= u=((1,-1,-111,-1.1,-3),(1,-1,-2,31); 
x=[[x1,x2,x3,x4)); 
у={0,1,-1/2}; 
NullSpace[u] 
Out[]= 
(1.0, 2, 1}, (1, 1, 0, 01] 
(2) 再 求 非 齐 次 方程 组 的 一 个 特 解 。 
In[]:=LinearSolve[u,v] 
Out[]= 


由 非 齐 次 线性 方程 组 通 解 的 结构 即 可 写 出 上 述 方程 组 的 通 解 。 
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实验 内 容 


练习 1 用 Mathematica 生成 下 列 矩 阵 。 
12 120 

aq) |3 т; (2) b 1 [ 
2 2 


0 
0 
3 


001 
‘3) |0 1 0 
100 


£ 
一 -一 一 
° Ф — 
ono 


1 1 1 1 1 1 1 1 1 
(la b J 2) [ b cl G) Ë b? 2) 
а? р? с? а? b? РЫ а? b с 
练习 3 定义 函数 ， 它 对 参数 生成 矩阵 
1 1 1 1 
11-х 1 o 1 
1 1 2-х 1 
1 1 1 9 nox 


对 = = 23,4.5 求 该 矩阵 的 行列 式 并 求解 方程 。 


3 7 -3 
练习 4 求 矩 阵 | -2 -5 2 BEMER 
-4 -10 3 
练习 5 RER 
1212 4 3 2 1 
А=|2 1 2 1 В=|-2 1 -2 | 
1234 0 -1 0 -1 
Ж: 
(1) 3А-4В: 
(2) 2A+3B; 


(3) #X8EA+X=B, X; 
(4) EY #E QA-Y)+2(B-Y)=0, ЖҮ. 
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练习 6 求 下 列 线性 方程 组 的 基础 解 系 。 


х|+2х›+5ху = Ü 
ху t3x 一 2x3 = 0 
Зх +7х, +&x, =Ü 
x +4x3 -9x3 =0 


练习 7 求 下 列 线性 方程 组 的 特 解 ， 


ср 


2x} 一 xz 十 4 一 274 =l 
(12 {-хү+хл,+2ху+х=0 


x = xa —2ху +224 = 


хү-Ху+5ху—ху = Ü 
Хү+ ху 一 273 十 374 =Ü 
12) 1 2 3 + 

3х,—Ху+Ёху +X (=Ü 


хү+3ху-9ху+7ху = Ü 


Xj HX, 一 2X3 — Xi +X, =] 
С2) {3хр—ху+ху-++4ху +3х; =4 


ж +5x3 -9x — x4 + x5 =Ü 
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实验 1-12 Mathematica 程序 设计 


实验 目的 


1. 了 解 Mathematica 程序 设计 中 的 顺序 结构 、 循 环 结 构 和 分 支 结构 。 
2. 掌握 用 Mathematica 进行 程序 设计 的 基本 方法 。 


实验 指导 


一 、Mathematica 中 的 关系 运算 与 逻辑 运算 
数学 计算 和 演算 中 经 常 涉及 关系 判断 。 最 常见 的 是 判断 两 个 关系 式 的 相等 、 木 等， 数值 
的 大 于 、 小 于 关系 ， 等 等 。Mathematica 系统 中 关系 表达 式 的 一 般 形式 为 : 
< 表达 式 > < 关系 运算 符 > < 表达 式 > 
关系 运算 符号 见 表 1-12-1。 


表 1-12-1 Mathematica 系统 中 的 关系 运算 符号 


符 号 说 明 例 
== 等 于 x==y+1 
= 不 等 于 x!=a 
> 大 于 а+һ>1 
< 小 于 х-у<а-2 
>= 大 于 等 十 х^2>=1 
<= 小 于 等 于 x<=a+b 

逻辑 运算 符号 见 表 1-12-2, 


表 1-12-2 Mathematica 系统 中 的 迎 辑 运算 符号 


符号 说 明 例 

! 否定 1 (x>5) 

&& 3 R х<2 && x>=-1 
1 或 者 x>1 | x<-1 


逻辑 表达 式 的 一 般 形 式 为 : 


< 关系 表达 式 > < 逻辑 运算 符 > < 关系 表达 式 > 


逻辑 表达 式 的 值 有 三 个 : 真 , 假 , 非 真 非 假 。 当 判 定 条 件 成 立时 , 逻辑 表达 式 的 值 为 rue 
《 真 ) ， 当 判定 条 件 不 成 立时 ， 人 逻辑 表达 式 的 值 为 False СВО. 当 判 定 条 件 无 法 判定 时 ， 光 2 
辑 表 达 式 的 值 为 非 真 非 假 ， 即 它 仍 为 一 个 逻辑 表达 式 。 


#1121 
1л[]:=х=3;х>у 
Outl]= 
xx y 
In[|:=2>3 
Out[]= 
False 
Inf]:=2<3 
Out[]= 
True 
二 、 过 程 与 局 部 变量 
住 高 级 程序 设计 语言 中 提供 了 子 程序 功能 ， 用 来 将 某 些 语句 内 在 -一 起 以 实现 某 种 目的 ， 
Mathematica 程序 中 的 过 程 也 有 类 似 的 功能 。 
Mathematica 程序 中 的 过 程 主要 有 两 种 : 
(1) RER 4 表达 式 3;,,, 表 达 式 n}， 这 一 过 程 的 输出 值 为 表达 式 % 的 值 。 
(2) Module[{x0,y0,.….}, 表 达 式 1 表达 式 2.. RAR n]， 在 Module 过 程 中 ， 花 括号 {} 
中 的 语句 用 来 说 明 局 部 变量 ， 并 可 以 赋 初 值 ， 其 输出 值 为 表达 式 4 的 值 。 有 时 为 了 输出 多 个 
AR, 16 Return {RAR 1.1, RAR 1.2, ET Module 过 程 的 最 后 一 个 语句 。 


三 、 顺 序 控制 结构 


Mathematica 中 的 顺序 控制 结构 就 是 复合 表达 式 , 根据 求解 问题 的 需要 把 一 个 系统 的 表达 
式 按 顺序 排列 , 在 一 个 表达 式 后 面 写 一 个 分 号 (: ) 接着 写 其 他 表达 式 , 就 构成 了 复合 表达 式 。 
一 个 复合 表达 式 的 值 就 是 它 的 最 后 一 个 表达 式 的 值 。 


1122 ЖЕЖ у(х) = 2x -6x2 -18x+7 的 驻 点 。 


In[1:=Clear([fl; 
[[х_Ї::2х^3-6х^2-18х+7; 
diff=D[f[x] x]; 
Solve[diff==0,x] 

Qut[]= 
{{хә 1}, {хә3З}} 


Wm. иа 


许多 计算 问题 都 需要 重复 地 做 一 些 类 似 的 工作 ， 例 如 计算 中 的 选 代 、 递 归 定 义 和 计 算 等 
等 , 反映 在 程序 里 是 通过 对 类 似 计算 过 程 的 反复 执行 完成 的 。Mathematica 提供 了 描述 重复 执 
行 的 循环 控制 结构 ， 见 表 1-12-3。 
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Æ 1-12-3 Mathematica 中 的 循环 结构 
á M 说 J| 
Do[ 表 达 式 ,循环 描述 ЖЕРЕН ЖН 
只 要 条 件 为 Troe Ж ЕЮ ВИТ, П $ fr 
Wwnile[ 条 件 ,表达 式 ] TT h 5 kár. 


的 值 不 足 Troe， 立 即 结 束 整 个 结构 


For[ 初 始 囊 达 式 ,条 件 , 步 长 表达 式 ,表达 式 ] 


商 先 对 初始 表达 式 求 什 ， 然 后 进入 循 球体 ， 依 次 
RER. TER PERKER, 一旦 对 条 件 的 求 
值 不 能 得 到 True， 立 即 结束 整个 For 结构 


例 112.3 Н Ў Wm. 
k=l 


计算 方法 共有 以 下 3 种 : 
(1) In[]:=s=0; 
k=1; 


While[k<=100,s=s+k^2;k++]; 


Print[s} 
Outl]:= 
338350 
(2) In[]:=s=0; 
k=1; 
Dols=s+kA2,(k,100)]; 
Print[s] 
Out[]:= 
338350 
(3) In[]:=s=0; 


For[k=1,k<=100,k++, s=s+kA2]; 


Printis] 
Out[]= 
338350 


11124 设 有 数列 x = 2, xpa = 2+ x. ni2 


In[]:=x=Sqrt[2]; 


‚ 写 出 这 个 数列 的 第 5 项 。 


Forlk = 1, k <= 4, k++, x = Sqrtlx + 2]]; 


Print[x] 
Out[]:= 
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{1125 ПИХ, =+ Lye HÆ 1101,201,301. …,901 项 的 值 。 
R 


In[]:=n=1000; 


Forli=li<=ni+=100, 
xi=N[(1+1/)^i, 10]; 


Ргіп "а= "i," 
Ош)= 

n=1 xn=2. 
n101 xn=2.70495 
n201_ xn=2.71155 
г=301 xn=2.71378 
т=401 хт=2.7149 
п=501 хп=2.71557 
т=601 хге2.71602 
07-701 хпе2.71635 
п=801 xn=2.71659 
т=901 xn-2.71677 


xm ",xill 


Ф) 112.6 EHAZE у = sin x Ë) n =1,3,5,7 Wr Maclaurian 级 数 的 图 形 。 


Tn[1:=Clear[x,£,n]; 
flx_1:=Sin[x]; 


Do|[a=Normal[Series[f[x],(x,0,n]11; 
PYot[ (ffx ha}, {x,-2Pi,2Pi},PiotStyle->{RGBColor{1,0,0), 
RGBColor[0,0,1])], (n,1,7,2]] 


OutD= 
- Graphics - 


输出 图 形 如 图 1-12-1 所 示 。 


图 1-12-1 
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五 、 分 支 控制 结构 
往复 杂 的 计算 中 常 需要 根据 表达 式 的 情况 确定 是 否 做 某 些 处 理 ， 或 在 不 满足 条 件 时 做 不 
同 的 处 理 。Mathematica 提供 了 一 些 描述 条 件 分 支 的 结构 ， 见 表 1-12-4。 


过 1-12-4 Mathematica 中 的 分 支 结构 


š Жж йш 

当 条 件 为 True 时 将 表达 式 的 值 作为 整个 语句 
的 值 ， 当 条 件 为 False 时 ， 给 出 空 值 Null 

当 条 件 为 True 时 将 表达 式 1 的 值 作为 整个 语 
名 的 值 ， 当 条 件 为 False 时 ， 将 表达 式 2 的 值 作 
为 整个 语句 的 值 ; 当 条 件 为 unknown 时 将 表达 式 
3 的 值 作为 整个 语句 的 什 

依次 计算 每 个 条 件 的 值 ， 将 第 1 个 为 True 的 
条 件 对 应 的 表达 式 作为 整个 语句 的 值 

依次 计算 每 全 条 件 的 值 ， 将 第 1 个 为 True 的 
Which[ 条 件 LERA 1... RER | 条 件 对 应 的 表达 式 作为 整个 语句 的 值 。 用 True 


MRAR] 


IRER ERR 2, 表 达 式 3] 


Which[ 条 件 IRAR 1 条 件 228385 2,.…] 


n, True HAR] 作为 Which 的 最 后 一 个 条 件 时 , 可 用 于 处 理 其 他 
情况 
1, x>0 
811127 定义 符号 函数 sgn(x)=1 0，x=0 ， 画 出 函数 的 图 形 。 
-1, х<0 


In[]:=sgn[x_]:=Iflx>0,1,-1,0];Plot[sgn[x],(x,-3,3)J 
Out[]= 
- Graphics - 
输出 图 形 如 图 1-12-2 所 示 。 


图 1-12-2 


=x, x<0 
sinx, 0<х<6 


BLL128 ХХВ ВОО т со 
0, 其 它 


画 出 函数 的 图 形 ， 并 求 通 数 值 AD， 


Ай), А7), А10). 
先 画 函数 图 形 ， 如 图 1-12-3 所 示 。 
In[]:=h[x_];:zWhich[x<0,-x,x>=0&&x<6,Sin[x] x>=6&&x<10,x/2,True,0]; 
Plot[h[x],{x,-2,12}] 


Out[]= 
= Graphics » 
s 
а 
2 
2 
1| 
-2 | 2 Me 8 шю и 
-1 
图 1-12-3 
жайн. 
Тар:=(1-0,01),а7Ы)) 
Out[]= 


{1, sin, И о} 


六 、 程 序 流程 的 控制 


在 正常 情况 下 ， 系 统 对 表达 式 的 求 值 总 是 按照 规定 的 顺序 和 方式 进行 。 但 是 ， 在 有 些 情 
况 下 ， 人 们 需要 改变 这 种 正常 的 顺序 ， 以 方便 程序 的 设计 ， 使 计算 流程 更 加 自然 ， 或 者 为 了 
提高 程序 的 执行 效率 ， 等 等 。 为 此 ，Mathematica 提供 了 一 些 特殊 的 程序 流程 控制 结构 ， 见 
表 1-12-5。 


表 1-12-5 Mathematica 中 常用 的 流程 控制 函 数 


Ж 数 说 明 
Break 退出 最 近 的 一 层 循 环 
Continue 转 入 当前 循环 的 下 一 步 
Return[ 表 达 式 ] 退出 函数 中 的 所 有 过 程 及 循环 ， 并 以 表达 式 的 值 作为 返回 值 
Label [标记 ] 定义 一 个 标记 
Goto[ 标 记 ] 直接 跳 转 到 单 本 过 程 中 的 标记 处 


Break 和 Continue 函数 典 模 的 使 用 生存 如 下 结构 ; 
Whilel..., 
If(..., Continue[1];...... ; 
11..., Break ПЕ; 
1 
例 1.12.9 关于 Break 函数 的 个 例子 。 
Inl]:= t=1;Do[t*=k; Print[t]; 
110219, Break[ П4к,10}1 
Qut[]= 
工 


6 
24 
Label 和 Goto ТЕ А ИН Br ЭЗ, ПОТЕН, ЖОН КИЕН B ru F esj, 
Modutel..., 


К 
Label[al; 


If[...,Goto[a]]; 
. | 
Return 函数 可 以 实现 从 求 值 中 退出 的 功能 。Retumm RERA AHER: 
(1) Returni], V} Null 作为 当前 函数 的 值 。 
(2) Return[ 表 达 式 ]， 以 表达 的 值 作为 当前 函数 的 值 。 
例 1.12.10 关于 Return 通 数 的 -- 个 例子 。 
ID:= 作 yx] := Мойше, t = DIy, x]; 
Ht == 0, Return" * * + "үү; t; Return[t]] 
fISin[x], х] 
ЇЇ5, x] 
Out[]= 
Сов[х} 


x * < 


实验 内 容 


ЖЛ 1 使 用 Mathematica B КЕНЕН Жоо Sk, 
练习 2 定义 醒 数 ， 使 它 产生 烷 分 式 


n+x 


练习 3 自由 定义 一 个 分 段 函 数 ， 并 对 函数 进行 微 积分 的 各 种 运算 。 


练习 4 设 数 列 [x,} 与 {y,} 册 下 式 确定 


хү=],ур=2 

хы =Й, + n=12,-- 
х, 十 了 

Parl = 


试用 Mathematica 编写 程序 求 数列 {x} ，{y,} 的 极限 值 。 
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第 二 篇 高 等 数学 基础 实验 
实验 2-1 ”函数 与 极限 


实验 目的 
掌握 用 Mathematica 研究 函数 性 质 的 基本 方法 。 
掌握 用 Mathematica 求 极限 的 基本 方法 。 
掌握 用 Mathematica 研究 函数 连续 性 的 基本 方法 。 


实验 的 基本 理论 与 方法 


юг 


. 数列 极限 的 定义 〈 略 )。 

函数 极限 的 定义 〈 略 )。 

无 穷 大 量 与 无 界 函 数 〈 略 )。 

极限 lim ГО) 存在 当 且 仅 当 极限 lim SOMAR Hm РОО 都 存在 并 且 相等 。 


А mb = 


x 


. 极限 Jim f o) FES B (0248888 fim /(х) PRR lim fO) 都 存在 并 且 相等 。 


е 


- 函数 /(х) ХЕ xo MERRE С), 
‚ ЖИЛЕТ 8726 (ЕҢ). 


м 


实验 使 用 的 Mathematica $% 


1. Limit[f[x],x->x0] ， 求 * 趋 于 加 时 Fo 的 极限 。 

2. Limit[flx],x->x0,Direction->1] : R x ËT xo HT f(x) 的 左 极限 。 
3. Limit[flx],x->x0,Direction->-1] : K x #4 T xo В f(x) 的 右 极限 。 
4. Limit[ffx],x->Infinity] : R x HT + 时 Fo 的 极限 。 

5. Limit[f[x],x->-Infinity] : Жх Р — Б] у(х) 的 极限 。 

6. Limit[f[n],n->Infinity] : 求 数列 f(n) 的 极限 。 

7. Plotifix] {xab} :， 画 函数 的 图 形 。 
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实验 指导 


Из 
例 2.1.1 求 极限 im EE, 


nos n 


In[]:=Limit[(n^2 + n)^(1/3)/(n + 2), n -> Infinity] 
ОшП= 
0 
1212 求 极限 lim ASNE 。 
хәб х 
In[]|: =Limit[(Tan[x] - Sin[xD/xA3, х -> 0] 
Outl |= 


1 
2 
1 
例 2.1.3 求 极限 lime 。 
若 直 接 和 输入: 
In[]|:=Limit[EA(1/x);x->0] 
Out[]= 


© 


1 
即 极限 为 。 事 实 上 极限 limet 不 存在 。 下 面 考察 左 、 右 极限 。 


Tn[]:=Limit[EA(1/x),x->0,Direction->-1] 
Out[]= 
oo 
In[]|:=Limit[EA(1/x),x->0,Direction->1] 
Ош]= 
0 
结果 分 列 为 ，0， 从 而 极限 不 存在 。 
此 例题 告诉 我 们 在 用 Mathematica 解 题 时 往往 要 将 计算 机 操作 与 数学 理论 结合 使 用 才能 
得 到 正确 的 结果 。 


例 2.1.4 研究 函数 极限 lim arctan x 。 


首先 画 出 y=arctanx 的 图 形 ， 如 图 2-1-1 所 示 。 
in[]:=Plot[{ArcTan{x],-Pi/2,Pi/2},{x,-100,100}, AxesLabel -> "ArcTan[x]"] 
Out[]= 
- Graphics - 
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һтеТал[х} 


Ё 2-1-1 


JU B ЗИ И x — —= D| Ж x — + Hi R 8 BJ 38 BR ЛУН) 


lim arctan х 和 lim arctan x o 


хә-= хэне 


Inj|1:=Limit[AreTan[x], х -> -Infinity] 
Out[]= 


In[]:=Limit[ArcTan[x], x -> +Infinity] 
Out[]= 


x 

2 

Htun kk Ë lim arctan x 不 存在 。 
#1215 求 下 列 极限 。 


Qa) lim xsnx 。 
xƏ0 


In[l:=Limit[x^Sin[x],x->0,Direction->-1] 
Out[]= 
1 
D imeti, 
хә» 2x—1 
Tn[]:= Limit[((2*x-+5)/(2*x-1)) A (x+]D,x->Infinity] 
Out[]= 


КЫ 


1 


216 RER =“), раа. 


In[]:=Limit[((a1Ax + а2^х + a3Ax)/3)A(1/x), x -> 0] 
Out[]= 
all3a213a313 


1217 研究 下 列 函 数 的 连续 性 并 画 出 函数 的 图 形 。 


一 和 0 一 


F 面 我 们 分 别 来 求 极限 


a Ce xsl 
3-х, x>1 
ЖШШЕ ЖИДЫ. WR 2-1-2 所 示 。 
Iní(]:=flx_]:=1flx <= 1, x - 1, 3 - x]; ( * 定义 分 段 函数 * ) 
Plot[flx], fx, -1, 3},AxesLabel -> "f(x)"] 
Outi]= 
- Graphics - 


ВА 2-1-2 


下 面 讨论 函数 在 分 界 点 x=1 处 的 连续 性 : 
Tn[]:=Limitíx-1, x -> 1, Direction->1] 
Out[]= 
0 
Tn[]:=Limit(3-x, x -> 1, Direction->-1] 
Out[]= 
2 
由 函数 的 图 形 以 及 函数 间断 点 的 定义 可 知 x=1 是 函数 的 跳跃 间断 点 。 
(2) g@)= taas °. 
x" +x-6 
首先 求 出 使 函数 分 母 为 0 的 点 。 
In[]:=Clear[x, g]; 
Solve[x^2 + x — 6==0] 
ОшП= 
{{хә -3}, (x>2)) 
ШЙ x = -3, x = 2 为 函数 的 间断 点 。 
再 画 出 钞 数 的 图 形 ， 观 察 闻 断 点 的 类 型 ， 如 图 2-1-3 所 示 。 
JnU:=g[x 1 := (x^3 + 3xA2 - x - 3/(xA2 + x - 6); 
Plot[g[x1, (x, -4, 5},AxesLabel -> "g(x)"] 
Out[]= 
- Graphics - 


一 71 一 


图 2-1-3 


由 图 可 知 ，xr= -3 是 函数 的 可 去 间断 点 ，x=2 是 函数 的 无 穷 闻 断 点 下 面 我 们 从 理论 上 
证 明 上 述 结论 。 
Ini]:=Limit[(xA3+3xA2-x-3)/(xA2+x-6), x ->-3] 
Out[]= 
8 
75 
In[]:=Limit[(xA3+3xA2-x-3)/(xXA2+x-6), х ->2] 
Out[]= 


实验 内 容 


练习 1 通过 几何 直 疯 说 明 夯 数 y= 了 sin 二 在 区 间 (0,1] 上 无 界 ， шх 40 +, 这 个 函数 


不 是 无 穷 大 。 
练习 2 求 下 列 极限 。 


(1) їшї: 

D а 19085, 

х90 (ех —])]n(1+ x) 
sinx. 


(3) ша-——; 
290 x 


(4) imd+ 了 >; 


хэ» оу 


]n sin x 


(5) lim А 
хэл (0—25) 
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练习 3 ROG (1) 画 出 函数 ?= ло) 的 图 形 : (2) Ж Hm уб), lim fO), 
lim (х) < 


练习 4 讨论 函数 
ry: 


(1+x)“ 
у= ° 


在 x=0 处 的 连续 性 。 
ки 
练习 5 Afo, x>0 ， 求 f(x) 的 间断 点 并 说 明 间断 点 的 类 型 ， 画 出 函数 
RBh0(+X), —1<х<0 
的 图 形 验 证 你 所 得 出 的 结论 。 
练习 6 自由 练习 求 各 种 类 型 的 极限 。 
练习 7 试 找 出 几 道 Mathematica 不 能 求解 的 极限 题 。 
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验 2-2 导数 与 微分 的 计算 


ЖЯ 


实验 目的 
掌握 用 Mathematica 求 函数 的 导数 和 微分 的 方法 。 


实验 的 基本 理论 与 方法 


Т. 导数 的 定义 PERSON ATE, W A'o) ш LEtS, 

2 函数 的 微分 : ЖЕ SONM Шау= одах. 

3. 参数 方程 的 导数 : ЖЯ рл а) 二 阶 可 导 , ЗЕН. gD) #0， дле], ro 所 确定 的 了 
函数 y= y(x) 二 阶 可 导 ， 且 


Зу yO d y dr dx 
dx g@() ах? d 


4. 由 方程 所 确定 的 了 函数 的 求 导 方法 M. 


实验 使 用 的 Mathematica 函数 


1.D[fx] : Жу) СРО 中 其 他 符号 均 视 为 常数 )。 
2. Difin : ЖУО). 


З.Ю{Ңх,у[х]х] : K f(x,y) 对 x 的 导数 ， 视 y 为 x 的 函数 。 
4. Dt[fIx]] : 求 函数 ro 的 微分 。 

5. Solve[ 方 程 ,变量 ] : 求解 方程 或 方程 组 。 

6. Simplify[ 表 达 式 ]. :化 简 表 达 式 。 


实验 指导 


例 2.2.1 讨论 函数 y=|sin 才 在 x=0 点 的 连续 性 与 可 导 性 。 


—14— 


Ali ДА ЭНСА, WE 2-2-1 所 示 
In|1:=Plot[Abs[Sin[x]],(x,-Pi/2,Pi/2),AxesLabel->(''x'','"ISin[x]I";] 


Outi J= 
- Graphics - 


1sin[x] | 


图 2-2-1 


由 几何 直观 可 以 看 出 函数 在 x=0 点 是 连续 的 ， 但 没有 切线 ， 故 不 可 导 。 下 面 我 们 从 理论 


土 证 明 此 结论 。 
In[]:=Clear[f]; 
{{х_]:= Abs[Sin[x]] 


Limit[f[x],x->0] 《*+ 求 函数 在 x=0 点 的 极限 值 * ) 


Out[]= 
0 
极限 值 等 于 函数 值 ， 所 以 函数 在 x=0 点 连续 。 
In[]:=Limit[Sin[x]/x,x->0,Direction->+1] (REFA +D 
Out[]= 
1 
In[]:= Limit[-Sin[x]/x,x->0,Direction->-1] (+ Е + ) 
Out[]= 
-1 
由 此 可 知 左 导 数 不 等 于 右 导 数 ， 所 以 函数 在 *= 0 点 不 可 导 。 


例 2.2.2 i у(х) =sinaxcosbx Ж f'o усл, ERO. 


In[]:=ffx_]:=Sin[a*x]*Cos[b*x]; 
Difix],x] 
Out[]= 
аСоз[ах] Cos[bx] - bSin[ax] SinrbxJ 
1 
a+b 


In[]:=%/.x->1/(a+b) (* 将 x= RAER”) 


ОшП= 


а | cosl b 
+5! а 


Tn[]:=D[tTx],(x,21] 


acos| z 


Оч = 
i -а? Coslbx) Sinta х] -他 Соз[Ьх) Sinlax) - 2арСоѕ[ах) Sin[bx} 
жаш: 
т :=йх 1 := Sinfa*x]#Ces(b*x]; 
Рх] 
f'[1/(a + b)] 
ffx] 
所 得 结果 与 上 面 完全 一 样 。 
例 2.23 Жу=(1+х?)агдапх 的 微分 及 一 阶 ， 二 阶 导数 。 
Tn[):=flx_):=(1+xA2)*ArcTan|x];Dt[fx]] 
Out[]= 


Dt[X] + 2 xArcTan[x] Defx] C Dt[x] 表 示 微 分 dx * ) 
In[]:=D[fix],x] 
Out[]= 


1+ 2xArcTan[x] 
In[]:=D[flx],(x,2)1 
Out{l= 
2x 


туе + 2 ArcTan{x] 


#1224 求 y=e*cos2x 的 3 阶 及 10 阶 导数 。 


In[]|:=D[EAx*Cos[2x],(x,3] 
Out[]= 
-11е*Сов[2х] + 2 e Sin[2 x] 
In[];=D[EAx*Cos[2x],(x,10]] 
Out(]= 
237 eXCos [2 х] + 3116 e%Sin[2xJ 


= z 2 
#1225 Wasi ‚ + Фу, 
у= y-arctant dx dx 


求 一 阶 导数 : 
m[]:=xIt. J:=Log[1+t42]; 
y[t_]:=t-ArcTan[t]; 
dy[t J:=Simplify[D[y[t]/D[x[tt11; 
ау 
Out[]= 
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求 一 阶 导数 : 
Inl |:=dy2[t_]:=Simptify[D[dy[t],t]/D[x[t],t]] 


dy2[t] 
Out[]= 
1+? 
Е 
812.26 8 ху-е? =0, кау, 
求 一 阶 导数 : 


In{}:=D[x*y[x]-E^y[x]==0,x]; 
t=Solve[ %,y'[x]] 
ОашШ= 


求 二 阶 导数 ; 
In[]:=D[x*y[x]-EAy[x]==0,1x,2]; 
Solve[%,y''[xT].t[[1,1]]; Simplify[%] 
Out[]= 
А YIX] (-2 е0 + 2x+ er y[x]) 
[fr -- TEE H 


例 2.2.7 вло *>0, жо). 


sinx, х<0 


HARER, ШШЕ 2-2-2 所 示 。 
In[]:=flx_]:=Hix>0,EAx-1,Sin[x]l; 
Plot[fix],(x,-3,3),AxesLabel->('"x","f(x)")] 
Out[]= 
- Graphics - 


图 2-2-2 
由 图 形 可 以 看 出 函数 在 分 界 点 x=0 处 是 连续 的 。 下 面 我 们 求 函数 的 导数 。 先 求 x>0 时 函 
数 的 导数 : 
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In[]:=D[Exp[x]-1,x] 
Out[]= 


x 
е 


FPK x < 0 时 函数 的 导数 ， 
In[]:=DISin[x],x] 
Out[]= 

Cos [x] 

最 后 求 消 数 在 x+=0 点 的 导数 : 
In[]:=Limit[((Exp[XJ-1)-f[0])/x,x->0,Direction->-1] ( * RCFM * ) 
Out[]= 

1 
In[1:=Limit[(Sin[x]-fIT0])/x;x->0,Direction->+1] (* 求 左 导数 + ) 
Out[]= 

1 

故 函 数 的 导数 为 


cosx х<0 
Mathematica 还 可 以 用 来 直接 求 寡 指 函数 的 导数 。 
1228 REPR у xm stxz>0) 的 导数 。 


In[]:=DíxASin[x],x] 
Out[]= 


nD [Cos[x] Log[x] + =) 


2 
1229 жй ат „и о,Э 处 的 切线 方 各 并 画 出 图 形 。 


由 导数 的 几何 意义 知 ， 所 求 切线 的 斜率 为 5= >| 


x2 ° 

In[):=D[xA2/16+y[x]*2/9-1==0,x]; 
t=Solve[%,y'[x]] 

Out[]= 


Кина =>} 
In[]:=t/,[x->2,y[x]->3*Sqrt[31/2) 
Out[]= 

УЗ 


世人 


求 切线 方程 : 
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(= - 3 Sqrt[3]/2 == -Sart[3]/4 (x - 2):Simptity[%] 
Out[]= 

J3 х — 

-YY V3 


所 求 切线 方程 为 V3x+4y-8V3 =0。 


ШН E 27. EEA О, 3 atiymi, 如 图 2-2-3 所 示 。 


Tn[]:=f=ParametricPlotí (4Cos[t], 3Sin[t]),(t.0,2Pi)]; 
fl=Plot[3Sqrt[31/2-Sqri[31⁄4(x-2),(x,-1 4) PlotStyle->RGBColor[1,0,01); 
Showff,fl] 

Out[]= 

- Graphics - 


223 


实验 内 容 


练习 1 求 下 列 函 数 的 导数 或 微分 。 
G>) y=ln[sinyx? +1]; Ry OyO: 


1 
(2) y=e +, Жау,у'(х): 


N „Чу а? 
(3) Жашап =l үл? + у? ‚Ж У. 


1 
x=— 2 
(4) 设 | Dr ‚у S d 
=? а? 
了 1+1 


(S) Жу= х, Жу); 


— 19 — 


(6) у= fx, rao 


练习 2 ааа" arrckanaxaaym хавшияяякаяла 
е 
正确 。 

. 1 

练习 3 ннан zx#0 在 x*=0 处 的 连续 性 与 可 导 性 。 

0, х=0 

-1-2х, х<-1 

#974 讨论 函数 g(x)={1 х2, -1sx<sl 的 可 导 性 ， 给 出 8'(b RERA E E g o 
x, х>1 


ЕЖ. 
练习 5 Aga Шы ыы ‚ Жї h =1,0.5,0.2,0.1,0.01 ЖЖ] Plot 函数 给 出 g0) 的 图 形 ， 


然后 “ 猜 出 ” y=sinx 的 导数 (将 5 个 图 形 放 在 一 张 图 上 进行 比较 )。 
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实验 2-3 ”中 值 定理 及 其 应 用 


实验 目的 


1. A Mathematica 验证 中 值 定理 的 正确 性 。 
2， 用 Mathematica 对 函数 进行 Taylor 展开 。 
3， 用 函数 的 Taylor 展开 式 作 近似 计算 。 


实验 的 基本 理论 与 方法 


1. Role 中 值 定理 : ШЖ fO 在 闭 区 阅 [a,p] 上 连续 ， 在 开 区 间 (a,b) 内 可 导 ， 并 且 
Да) = f(b)， 则 存在 be (а), 10р) =0. 

2, Lagrange 中 值 定理 ;如 果 f(x) 在 闭 区 间 [a, 如 上 连续 ， 在 开 区 闻 (а,Ь) 内 可 导 ， 则 存在 
telad), tega 0 ka, 


3. Cauchy 中 值 定理 ， 如 果 fo), gO) EMEA jab) 上 连续 ， 在 开 区 间 (а,Ь) ATSE 


, FE) _ fO- Ја) 
0， 则 存在 5e (а,Ь), А а = 一 一 一 “成 立 。 
870) +0, ДИРЕ Ее (a,p) ， 使 等 式 RORO 成 


4. Taylor 中 值 定 理 : 如 果 /(х) 在 含 xo HRAKIN a,b] 内 具有 直到 n+1 阶 的 导数 ， 则 对 任 


—e[a,b), fG)= Гоа) озу ао) E f G) o) ++ FU) (xa) xa)” +К,(), 
] n! 


其 中 ， A Фуат" {Lagrange 型 余 项 ), БЕ К (х) =о(х— ху)" Peano 


HRH). 
5. 常用 函数 的 Maclaurin 展开 式 : 


2 л Өх 
x x е 
ež altaro ttt 


х", (0<8<1) 
n! (л+1)! 


" л 
3 5 2т-1 8їш(Өх+(2т+1)—] 
вах х.к) 2 


2т+і 
СЕ От (тый 0° 090 


实验 使 用 的 Mathematica 函数 
1. Series[fIx],[x,x0,n)]: 对 70) 1 ху Еп И Тауіог 展开 。 
2. Normal: 去掉 泰 勤 展开 式 中 的 余 项 。 
3, BindRoot， 求 方程 GD 的 数值 解 。 
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4.0]: 求 函数 f(x) 的 导数 ， 
5. Рох) ха): mE 元 函数 РО) Ж 


实验 指导 


例 2.3.1 验证 Lagrange 中 值 定理 对 函数 y=4x? -5x?+x-2 存 区 阅 [a,5b] 上 的 正确 性 。 
显然 Jo 在 任意 点 处 可 导 ， 在 任意 区 间 [c 昌 上 满足 Lagrange 中 值 定理 条 件 ,下 面 求 出 满 
是 定理 结论 中 的 占 。 
ы[={х_]:=4х^3-5х^2+х-2; 
a=0;b=2; (+ а,Ь EEH * ) 
FindRoot[f [x] == (fIb] - ffa])/(b - a), Ix, {0, 2}} / М 


Out[|= 
[x > 1.2374} 


Bab БИН, ЕЕЕ, АЕ р) = wto, 


例 23.2 对 函数 fp sina B PO) = x- cosx 800,21 上 验证 Cauchy 中 值 定理 的 了 


确 性 。 
显然 Ох) FO Аі Cauchy 中 值 定理 的 条 件 ， 我 们 先 来 求 满足 定理 结论 中 的 & 。 
In[]:=flx_J:=Sin[x]; 
F[x_]:=x+Cos[lx]; 
FindRoot[f'[x]/F'[x]==([Pi/31-ff0])/(F[Pi/3]-F[0D,(x,10,Pi/3))]y/N 
Out[]= 
{хэ 0.443777) 
下 面 再 来 验证 & 确实 满足 Cauchy 中 值 定理 的 结论 
In[]j:=(fIPi/3]-0)/(F[Pi/3]-F[0]V/N 
Out[]= 
1.58266 
In[]:=f'[x]/F'[x]/.x->0.443777 
Out[]= 
1.58266 
812.33 #уоу=(х-1(х—2)(х-3З(х—4), ÚW f'G)=0# JU 4 Sag, 指出 它们 所 在 的 
区 间 ， 并 求 出 所 有 根 。 
事实 上 ， 由 Role 中 值 定理 我 们 可 以 判定 出 P(9=0 有 三 个 实 根 ， 分 别 在 区 间 
02), (23, (30) 内 。 下 面 我 们 分 别 画 出 FO) 和 广 ( 的 图 形 ， 通 过 几何 直观 来 验证 此 结论 。 
先 画 了 (x) 的 图 形 ， 如 图 2-3-1 所 示 。 
Tn[1:=Clearlf]; 


н 
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flx_]:=(x-1)*(x-2)*(x-3)*(x-4); 
Plot[fIx],(x,0,5)) 
Out[]= 
- Graphics - 
HA f(x) РАЈЕ, WE 2-3-2 所 示 。 
[In|]:=Plot[f'[x1,(x.0,5J1 
Out[]= 
- Graphics - 


图 2-3-1 图 2-3-2 


由 图 形 可 见 ，f"(x) =0 在 [1,2],[2,3],[3,4] 区 亲 各 有 一 个 根 。 下 面 我 们 求 出 方程 所 有 的 根 ， 


ITn[]:=Clear[x, fJ; 
flx ]:= (x - D*(x ~ 2)*(x ~ 3)*(x - 4); 
Solvelf [x] = 0, x] / N 
Out[]= 
(хэ 2.5}, {X> 1.38197}, {хә 3.61803}} 
例 2.3.4 将 下 列 函 数 进行 Taylor 展开 ， 并 显示 Taylor 多 项 式 。 
Q) Р) = шхо =ln=4., 


In[]:=Serieslx"2*Log[x1,(x,1,4)] 
Out[]= 


(х-1)+ Ë к-р? 2 (х- р? Š (х- 1). 01х- 15 


:=Могтаі{ %] 
Out[]= 


-1+ Ë ({-1+2+ + ({-1+ху3- 5 Clx x 


(2) fO)=e 7,5 =0,п=8. 


Tn[]:=SeriesIEA(-xA2/2),(x,0,8)1 
| Normal[%] 
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А © В 
W. L Ж“, Ж оша 

2 8 48 384 

1 Z x x x 

ОО 8 48 384 


例 2.3.5 ох) ОЗЕ ЛИ pa) = хі —5x3+x2—3x+4, 


ш[:=[х_]:=х^4-5х^3+х^2-3х+4; 
NormalfSeries[f[x],{x,1,5}]] 

Out[]= 

-2-12(-1+ху-8{-1+х)?-(-1+х)%+ (1, 3 


例 2.3.6 利用 e* 的 Taylor ARR Ve 的 近似 值 ， 使 误差 小 于 10™ ， 


In[]:=Clear[f,sn,rn,j,m]; 
i=l;rn=1;j=1;m=4; 
While[rn>10A(-m),j=j*(i+1); 
rn=N[EA(1/2)/(2A(i+1)*j),6]; 
sn=N[NormaJ[Series[EAx,(x,0,i)]]/.x->1/2,61;i++]; 
Рин =" i" тп=",гп,'" sn=",sn] 

ОшП= 
i=6 rn- 0.0000357795 sn=1.6487 


于 是 得 出 : Жеті 6 次 Taylor 多 项 式 近似 计算 Ye ， 近 似 值 为 1.6487， 误 差 不 超 过 


0.0000357795。 
例 2.3.7 应 用 3 阶 Taylor ARR 3/30 的 近似 值 ， 并 估计 误差。 


уо) =, x =27, ШЕН] РОХ) E x=27 点 处 的 3 阶 Taylor 公式 计算 330 的 近似 值 。 


TIn[]:=f[x_]:=xA(1/3);s=N[NormallSeries[fIx],[x,273]J1Y.x->30,61 
Out[]= 
3.10725 
下 面 估计 误差 。 
In[]:=D{ffx],{x,4}] 
Out[]= 
80 
81 x11/3 
Jn[]:=r=-DIfix],([x,411/4!*3A4/.x->27//N 
Out[]= 
0.0000188168 


得 到 误差 不 超过 0.0000188168。 
实验 内 容 


练习 1 ЭН fO) = danx 的 3 B: Maclaurin AA. 

练习 2 З= 4%, Жай у= ух 6 Taylor ARA Taylor 多 项 式 。 
练习 3 应 用 6 阶 Taylor 公式 求 sin18? 的 近似 值 ， 并 估计 误差 。 

练习 4 应 用 Maclaurin AR, Ra A RERF ER f(x)=(x? -3++D)3。 
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实验 2.4 一 元 函数 微分 学 的 应 用 


实验 目的 
掌握 用 Mathematica 求解 一 元 函数 微分 学 应 用 问题 的 基本 方法 。 
实验 的 基本 理论 与 方法 


1. 函数 极 人 的 定义 〈 略 )。 
2. 函数 极 值 的 必要 条 件 : ШШ у(х) 在 点 和 处 可 导 ， 且 在 ao 处 取得 极 值 ， 则 必 有 
了 '(x0)=0 ， 称 za 为 函数 уох) 的 驻 点 。 
3. AREKE ANRE Св). 
4. 函数 极 值 的 第 二 充分 条 件 《〈 略 )。 
5. 函数 单调 性 的 判定 : EAM у = fO) Elab ER, E (ab) 内 可 导 。 
(1) MRH (a,b) А хо) >20, ШЕ у= f(x) 在 fa, 忆 上 单调 增加 ， 
(2) 如 果 在 (ae 六 内 产 (xmo)<0 ， 则 函数 ， = f(x) E lab) EARD. 
6. BROKK BARRE M). 
7. 函数 最 大 值 与 最 小 值 的 求法 ， 车 у) 1а, Б 上 可 导 ， 求 出 了 '(xo)=0 АТЗ 
2 比较 为 ,和 ,ze 处 的 函数 值 ， 最 大 的 是 最 类 值 ， 最 小 的 是 最 小 值 。 
8. 牛顿 迭代 法 ， 车 Fa 在 区 吕 上 二 阶 可 导 FAO В 0), О) [0,6 ERR 
定 号 ， 取 xoe[a, 有 使 F'(x) ，/"(%) 回 号 ， 由 下 面 选 代 公式 可 求 近 似 根 。 
О) 
Уо) 


点 


x, = x, 


实验 使 用 的 Mathematica 函数 
1. Solve[ffx]==0x]: 求 方 程 f(x) =0 的 解 。 
2. Niam]: 求 a 的 近似 值 ， 保 留 上 位 有 效 数 字 。 


3. FindRoot[If1x]==0,{x,x0}]: 求 方程 f(x) =0 在 如 附近 的 根 。 
4. FindMinimumiífix],tx,x0)]: 求 函数 f(x) 在 xo 附近 的 极 小 值 。 


实验 指导 


例 2.4.1 通过 几何 与 理论 分 析 相 结合 的 方法 讨论 方程 nx = ar (а> 0) 有 几 个 实 根 。 
先 求 出 函数 的 驻 点 ; 
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Tn[]:=g[x_]:=Log[x]-a*x 

Solve[g'[x]==0,x] 
Outí]= 

1 
{t-33} 
FFB A E BARE S. 
In[]:=g'' Па] 
Out[]= 
2 


-a 


уч) «0, во) а AKI, FERR OEA, 
а 


In[]:=g[1/a] 
Out[]= 
1 
-1+ Logl | 


确定 最 大 值 为 零 时 a 的 值 : 
Tn[]:=Solve[g[1/a]==0,a] 
Out[]= 


1 
-3h 
下 面 通过 几何 直观 观察 当 a 1, а>1, 0<e < 工时 ， 曲线 y=lnx-ax 与 x 轴 交 点 的 个 


数 ， 即 可 得 出 方程 Inx=ax(a > 站 根 的 个 数 。 
分 别 取 定 a 的 一 些 值 ， 画 出 y=Jnx-ax 的 图 形 ， 如 图 2-4-1 所 示 。 


In[]:=For[k = 2, k <=4.5,k = k + 0.5; 
Print[" e=", N[1/E, 31], 
a = NILog[3, КИЕ , 3]; «а= вук *) 
е 


Plot[Log[x] - a x, fx, 0, 15}, PlotRange -> {-5, 5), 
AspectRatio -> Automatic, PlotStyle -> { RGBColor[1, 0, 07), 
AxesLabel -> " =a''a]] 
Out[]= 
1/e=0.367879 


由 图 形 可 以 得 出 结论 : Hasim, 方程 有 一 个 实 根 ; 当 a > 工时 ， JERAR; 当 


0<o< 时， 方程 有 两 个 实 根 。 
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0.232106 ша 0.206825 шш 
< al 
2 А 
Тт + в s m re Г Ө шы 12 14 
-2 -2 
-4 -4| 
(а) (b) 
0.067919 =a 0.419498 za 
al al 
z 2 
ЭУ? ч 15 1214 Warm; 10 22 14 
-2 Ы 
-4 -4 ы 
©) (d) 
0.463212 та 0.50365% -a 
4l kd 
z z 
g 5 lò 12 14 ë & 10 12 14 
-e -z 
74 -& 
©) (9) 
8241 
BL 242 通过 几何 与 分 析 相 结合 的 方法 ， 讨 论 уо) х 一 x? 一 x+1 的 单调 性 、 加 耐性、 
极 值 与 拐点 。 
先 求 出 函数 的 驻 点 : 


їа{]:={х_}:ех^3-х^2=х+1; 
Solve[f'[x]==0,x] 
Out[]= 
{ 3), x» n) 
再 画 出 f(x) 在 斑点 附近 的 图 形 ， 如 图 2-4-2 所 示 。 
In[]:=a= Plot[flx),Ix,-2,2),PlotStyle->(IRGBColor[1,0,0])] 
b = Graphics[{Dashing[{0.03, 0.02}], 
Linef{{-1/3, 2), {-1/3, 0), (1, 0), (1, 21; 
Show[a, b] 
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Out[]= 
~ Graphics - 


由 图 形 知 函 数 在 x= -i 处 到 得 极 大 值 ， 在 x=1 处 取得 极 小 值 。 


求 出 函数 的 极 大 值 和 极 小 值 ; 
In[]:=ft1-1/3] 
Out[]= 
1.18519 ( 极 大 值 ) 
In[43:=f{1] 
Out[]= 


0.《 极 小 值 ? 


H TRAE С lvo) 上 函数 单调 增加 ， ж -Ы ЕШШ. 下 面 讨论 曲线 的 


КЕШ С 
求 一 阶 导数 等 于 零 的 点 : 
In[]:=Solve[f''[x]==0,x] 
Out[]= 


= 3) 
再 画 出 f(x) 的 图 形 ， 如 图 2-4-3 所 示 。 
In[]:=e = Graphics[{Dashing[{0.03, 0.02}], Linef{{1/3, 2), (1⁄3, 0}; 
Show[a, с] 
Out[]= 
- Graphics - 


H fO) 的 图 形 知 : 曲线 在 区 间 Ce Ens, 在 区 间 i= 上 是 四 的 。 
最 后 求 曲线 的 拐点 : 


ы:=М{ х]}/.х->1/3] 
Out[]= 
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{0.333333, 0.592593} 


图 2-4-3 
81243 REH SO) = (х5 -3x?+2)e* +x 的 极 值 。 
先 画 出 f(x) 的 图 形 (如 图 2-4-4 所 示 )。 
In[]:=f[x_]:=(xA5-3xA2+2yFEAx+x; Plot[fIx],(x,-1,2)J 


Out[]= 
- Graphics ~ 


E 2-4-4 
ЮН ЖАКЕ х= 0.5 附近 有 极 大 值 ， 在 *=1 附近 有 极 小 值 。 
Tn[]:=-FindMinimuml[-fTx],(x,0.5)] 
. FindMinimumíflx],(x,1)] 
Out[]= 
{2-68334, {-(х ›0.390707))) — ( = FEAT 2.68334 * ) 


(0.959984, {хә 1.04411)) ( * МЯ 0.059984 * ) 
ЯЖ ”此 题 用 Solve 函数 不 能 求 出 驻 点 。 
例 2.4.4 R у(х) =2x3+3x2 -12xz+14 在 [-3.4] 上 的 最 大 值 与 最 小 值 。 


画 出 f(x) 的 图 形 ， 如 图 2-4-5 所 示 。 
In[]:=flx_]:=2xA3+3xA2-12x+14; 
Plot[fIx],(x,-3,4]J 
Ощш]= 


— 90 一 


- Graphics - 


求 函数 的 最 大 值 和 最 小 值 。 
In[]:=Solye[P[x]==0x] 
Out[]= 
(хэ -2},{хә1}} 
In{J:=Print[ft-3]," "0-2," "0," "ТАП 
Out[]= 
23 34 7 142 
HRA: f(4)=142, f(D) = 7 分 别 为 函数 在 [-3,4] 上 的 最 大 值 和 最 小 值 。 也 可 以 输入 以 下 
程序 直接 把 函数 的 最 值 求 出 来 : 
In|]:=Clear[f,k,x];a=-3;b=4; 
х_]:=2х^3+3х^2-12х+14; 
z=Solve[D[f[x],x]==0,xVV/N; 
k=Union[((x,fIx])/.z),((a,fla]),(b,flb1]))]; 
fk={};l=Lengthfk]; 
For[i=l,i<=li++, 
HI(kI[i,11]>=a)&&(kl[i,1]]<=b), 
fk=AppendIfk,k[[š,2]]1; 
pmax=Position[k, Max[fk]1[[1,1]]; 
pmin=Position[k, Мїп[їк]][[1,11]; 
Print[k[[pmax]],” — ".k[[pmin]]] 
Out[]= 
(4, 142) (—1., 7.) 


0124.5 利用 导数 知识 与 计算 机 辅助 相 结合 的 方法 描绘 函数 y= 1+ 


用 Plot 函数 画图 ， 输 出 图 形 如 图 2-4-6 所 示 。 
In[]:-TTx_]:=1+36x/(x+3)*2; 
Plot(fIx],(x,-100,100]1 
Out[]= 
- Graphics - 


36x 5 的 图 形 。 
+3) 


(x 


一 纪 一 


显然 前 数 图 嵌 很 不 准确 。 我 们 适当 调整 xy 的 取 值 范围 可 以 把 
2-4-7 所 示 )。 
In[]:=Plot{ffx], (x, -20, 20}, PlotRange -> {-25, 5}] 


Out[]= 
- Graphics - 


形 画 得 更 准确 〈 如 图 


图 2-4-6 ËB] 2-4-7 


PA 
š 


下 面 利用 导数 知识 来 描绘 函数 的 
求 函数 的 驻 点 : 
In[]:=Solve[f' [x]==0,x] 
Out[]= 


((xə3)) 
Tn[]:=f(3] 
Out[]= 
4 

求 曲线 的 拐点 : 

In[]:=Solve[f' ' [x]==0,x] 

Outí]= 

(хэ 6)) 
TIn[]=f[6] 
Out[]= 
11 
3 

讨论 曲线 的 渐 近 线 : 

Tn[]:=Limit[1+36x/(x+3)A2,x->-3] 

Out[]= 

Tn[]:=Limit[1+36x/(x+3)A2,x->Infinity] 

ОшП= 

1 

由 此 知 曲 线 有 一 条 水 平 渐 近 线 》=1 和 一 条 铅 直 渐 近 线 *= -3 。 
例 2.4.6 Ж ех -3x-0 的 根 。 
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本题 的 求解 方法 有 以 上 3 р. 
СТ) Н ВЖ уо) ех Зх ШЕЕ. WA 2-4-9 所 示 。 
Jn[]:= flx_]:zEAx-3x; 
Plot[f{x],{x,-$,5}] 


Outl]= 
- Graphics - 


图 2-4-9 


出 图 知 ，f(x) 与 x 轴 有 两 个 交点 ， 即 方程 e* -3x=0 在 区 间 (04) 和 (1,2) 内 各 有 一 个 根 。 


In[]:=FindRoot[E^x-3x==0,{x,1}] 
Out[]= 
{хә 0.619061) 
In[]:=FindRoot[EAx-3x==0,(x,2)] 
Out[]= 
{хә 1.51213} 
(2) 分 别 选 xo =0， =1 为 初始 值 ， 用 Newton 迭代 法 求 方程 的 近似 根 ， 使 误差 不 超过 
10%, 

]n[]:=x0=0;x1=1;k=0; 
While[Abs[x0-x1]>10^-8,x0=x1; 
Xx1=N[x0-f[x0]/f'[x0],10];k++]; 

Print["k=",k," x=",x1] 

Out[]= 

k=6 x=0.619061 

110:=х0=1;х1=2;к=0; 
While[Abs[x0-x1]>10^-8,x0=x1; 
x1=N[x0-f[x01]/Ë[x01,10];k++]; 

Print["k=".k" хех 
Out[]= 
kK-6 x=1.51213 
经 过 6 次 迭代 可 以 求 出 近似 根 ，z = 0.619061, ху =1.51213. 
(3) 用 二 分 法 求 方程 在 区 间 [1.23] 内 的 近似 根 ， 使 误差 不 超过 10- 。 
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In[]:=Clear[f,x1,x2,x0;i]; 
{х_]:=М[Е^х-3х,8]; 
x1=0;x2=1;m=5; 
HIfIx1]*!1x2]<0, 
epsi=x2-x1; 
i=0; 
While[epsi>=10A(-m), 
х0=(х1+х2)/2; 
Which[flx0]*fIx1]<0,(x1=x1;x2=x0;epsi=(x2-x1)), 
f[x0]*flx1]>0,(x1=x0;x2=x2;epsi=(x2-x1)),f[x0]=0,epsi=0]; 
i++ 
J; 
Print{"The root is ",N[x0,8]]; 
Print[''i=",il, 
Print["Not ѕиге'] 
Out[]= 
The root is 0.619057 
1=17 
经 过 17 ABARA AR BAAR: х, = 0.619057, RAT Ж НЕЕ Б Га, 21КЕ 
似 根 为 x, = 1.51214. 


例 2.4.7 试 决定 y=ax? +bx?+cr+d 中 的 a,b,c,d ,使 得 点 x=-2 为 函数 的 极 值 点 ， 极 什 


Ж 44, (,-10) 为 曲线 的 拐点 。 
Iní]:=Clear[f,x,a,b,c,d]; 
fix 1:=a#xA3+b*xA2+c*%*x+d; 
Solvel[fl-2]==44,f'[-2]==0,T1]==-10,t'"I11=0),(a.b,e,d)U/N 
Out[]= 
{{аә 1., Бә -3., сә -24., d> 16.}} 


实验 内 容 
练习 1 用 Mathematica 证 明 下 列 不 等 式 。 
(D Олов, Sin х+іаах> 2x; 


(2) 当 x>4 时 ，27 > :?. 
练习 2 用 Mathematica 证 明 方 程 sinx=x 只 有 一 个 实 根 。 
练习 3 ух) = хех, ЖЕШ ХО). РО), ГО) 的 图 形 ， 并 讨论 单调 函数 的 导 


函数 是 否 仍 为 单调 函数 


СЕ 


练习 4 用 图 形 与 分 析 结合 的 方法 研究 下 列 函 数 ( 图 形 ) APAE mot, ИЙ. 5 


(1) f =2xX -6x -18x-7:; 


(2) уох 10х50): 
x 


(3) Ха) = ntt?) 
练习 5 Plab AREH 03) 为 曲线 y= ах? +bx2 88 82 
练习 6 求 下 列 函 数 在 所 给 区 同上 的 最 大 值 和 最 小 值 : 
(1) FnD=2z-3r2-l1sx<s4; 
02) лор, 20 5х5. 
х+1, хх0 
练习 7 用 图 形 与 分 析 结合 的 方法 确定 c 的 取 值 范围 ,使 方程 Inx=cx 有 惟一 解 。 
练习 8 先 观察 函数 ?= 2 +5x+1 的 图 形 ， 选 择 合适 的 初始 值 ， 然 后 用 Newton 迭代 法 求 


方程 心 +5x+1=0 在 区 间 (-1,0) 内 的 实 根 ， 使 误差 不 超过 0001. 


练习 9 用 图 形 与 导数 知识 相 结 合 的 方法 画 出 下 列 函 数 的 图 形 : 


2 

(1) y= 
1+2х 

2 

(2) у= 2% 
x -l 
(3) y= SE 
 Cos2r 
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实验 2-5 ”一 元 函数 积分 的 计算 


实验 目的 
掌握 用 Mathematica 计算 一 元 艾 数 各 种 类 型 积分 的 方法 。 
实验 的 基本 理论 与 方法 


1. 原 函 数 与 不 定 积分 的 概念 〈 略 )。 

2. 不 定 积 分 的 换 元 法 和 分 部 积分 法 〈 略 )。 

3. 定 积 分 的 概念 K) 

4. 微 积 分 基本 公式 〈 略 )。 

5. 广义 积分 的 考 散 性 及 其 计算 方法 〈 咯 )。 

6. 定 积分 的 近似 计算 : 用 分 点 a= <a ces a, =b HR a,b] Dn NEEME 
区 间 ， 每 个 小 区 间 长 度 为 


An -ta nathan xa Арк у= f(x) 
n n 


矩形 法 公式 ; 
[of Wer= == (tyi tot Yaa) 
[Issa tt y) 
梯形 法 公式 ; 
[iroa е ар oo + улууу tersa 
抛物 线 法 公式 : 
[raya = = + ууу» tya tetyn ad EAO уза) 


实验 使 用 的 Mathematica $% 


1. Integrate[f[x],x]: K f(x) 的 不 定 积分 。 

2. Integrate[f[x],{%asb}: K f(x) Æ [a,b] 上 的 定 积分 。 

3. NIntegrate[flx],(x,a,b]]: 求 f(x) 在 [a,b] 上 的 数值 积分 。 
4. Integrate[f[x]{x,-Infinity, +Infinity J]: 计算 广义 积分 。 
5. Араг х]: 部 分 分 式 。 
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实验 指导 


例 2.5.1 计算 不 定 积分 [e* cosbxdx 。 


Iní]:=Integrate[E^(a*x)*Cos[b*x],x];Simplify] %] 


Out[]= 
е?х (a Cos[bx] + bSin[(bx]) 
а? +з 


B252 计算 不 定 积分 | oy 。 


In[]:=Integrate[(x+Sin[x])(1+Cos[x]),x] 
Out[]= 
2xcos[>] sin[ 2 | 


1 + Cos [x] 


3 
253 ”计算 不 定 积分 | dx 
Atx”) 


In[]:=Integrate[xA3/(1+xA8)A2,x] 
Out[]= 


例 2.5.4 计算 不 定 积分 | ак. 


xt 1152 
In[]:=Integrate[1/x*4/(1+xA2)A(1/2),x] 
Out[]= 


ыу 


(- 55+ 


#253 计算 定 积分 | 5+ зат 


In[]:=Integrate[1/(5+3Sin[x]),{x,0,2P1}) 
Out[]= 


л 
2 


#1 2.5.6 计算 定 积分 [8x? Ya? -x°dx o 


In[]:=Integrate[xA2*Sqrt[aA2-xA2],[x,0,a)] 


Out[]= 
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alz Sigr[al 


12.57 计算 广义 积 "- тоз 
x 


+= тя 
жиш хыя |, д5" ИГ х? здае T. 
In[]:=Integrate[1/(x^2+2x+2),{x,0,+Infinity}] 
Outl |= 
л 
4 
In[]:=Integrate[1/(x^2+2x+2),{x,-Infinity,0}] 
Out[]= 
Зл 
4 


即 上 面 两 个 上 


上 义 积 分 收敛 ， 改 诛 广义 积分 收 伍 。 下 面 计算 其 值 。 


In[]:=Integrate[1/(x^2+2x+2),{x,-Infinity,+Infinity}] 
Out|[]= 


л 


01258 计算 广义 积分 
[иту хүї— (In х)? 
In[]:=Integrate[1/x/Sqrt[1-(Log[xDA2],(x,1,E3] 
Outí[]= 


л 


2 
8259 计算 | АЙЯ = 


In[):=Integrate[1/(1-x)A2,[x,0,2)] 
Onut[]= 


即 广义 积分 发 散 。 
12.510 RIRI | e dr 的 近似 值 。 


被 积 函 数 的 原 函数 不 能 用 初等 函数 表示 ， 我 们 可 以 计算 它 的 数值 积分 
JIn0:=NIntegratelE^(-x^2),{x,0,1}] 
Out[]= 


0.746824 


例 2.5.11 求 积分 [Ind+tan dx 的 近似 值 。 
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Iní]:=NIntegrate[Log[1+Tan[x]],[x,0,Pi/4)] 
Outl ]= 
0.272198 


例 2.5,12 求 导数 zj ту Cos(zt2)dr + 
In[]:=Dilntegrate[Cos[Pi*tA2],(t,Sin[x],Cos[x]]],x] 


Out[]= 
-Cos [x] Cos [zx Sin[x]?] - Соз[л Cosrx12) Sin[x] 
—1—,х>0 
512513 у= В ‚ R| fee-Dax 。 
‚х<0 
lte” 


In[]:=flx_]:=Iflx<0,1/(1+EAx),1/(1+x)] 
NIntegrate[f[x-1],{x,0,2}] 
Out[]= 
1.31326 


812544 SAREE, ЖЕК. ИЕА Е | x?dx 。 
为 了 便于 比较 ， 首 先 计算 积分 的 精确 值 : 


In[]:=Clear[x]; 
у(х. ]=х^2; 
Tntegrate[y[x],(x,0,1)] 
Out[]= 
1 


3 
(1) ЖЖЖ. 
In[]:=Clear[y,x,s1,n,b,a]; 
n=20;a=0;b=1; 
ух J:=xA2; 
sl=(b-a)/n*Sum[y[a+i(b-a)/n],{i,0,n-1}]//N; 
s2=(b-a)/n*Sum[y[a+i(b-a)/n],{i,1,2}]//N; 


Print["s1=",s1," s2='t,s2] 
Out[]= 
51-0.30875 52-0.35875 
(2) 梯形 法 


In[]:=Clear[y, x, a, b, ss3,s3]; 
yix] := xA2; 
п=20;а=0;Ь=1; 
863 = Sum[y[a + i*(b - a)/n], {i, 1, n - 1}]; 


Ош 


53 = (y[a]/2 + y[b]/2 + ss3)*(b - a)/n // N; 
Print{"s3=", 83] 


= 
53=0.33375 


(3) 抛物 线 法 
In[]:=Clear[y,x,a,b,s3]; 


Ух_]:=х^2; 

n=2m;a=0;b=1;m=10; 

ssl=Sum[(1+(-1)^i)*yla+i*(b-a)/n],{i,1,n-1}]; < * ssl=2y, +2y4 ++ 2yp 2 * ) 
ss2=Sum[(1-(-1) Ai) *y[a+i*(b-a)/n],(i,1,n-1)]; € * ss2=2y, +2у3 ++2у„*) 
s4=N[(y[a]+y[b]+ss1+2ss2)*(b-a)/3/n,20]; 

Print["s4=",s4] 


Out[]= 


s4=0.33333333333333333333 


т Ежа. MARRE HERE, EIN ES, 


练习 1 


f 


Df 


(32 
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实验 内 容 
用 Mathematica 求解 下 面 各 类 积分 。 

x? +3x?—5 
G? -28-6 +х+1) 
yx? +1 
— sx 

х? 

а^ sin xcos? хіх; 


w ds d. 


des Ду! 


(9) fiia 


0 x 
(10) вло ISP ， 求 | <f ax。 
练习 2 (1) 将 有 理 真 分 式 
fe) 
分 解 为 部 分 真 分 式 之 和 。 
(2) 利用 (1) 的 结果 计算 不 定 积分 1f(x)dx ， 并 且 画 出 f(x) 和 | foda 的 图 形 。 


_ 12x5 -7x —13x° +8 
100x% – 802° +116x* —80х? +41x° —20х+4 


(3) 利用 уо) ЯЯ [одах 图 形 的 主要 特征 。 
练习 3 试 找 出 几 道 Mathematica 不 能 求解 的 积分 题 。 
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实验 2-6 ” 定 积 分 的 应 用 


实验 目的 


掌握 用 Mathematica 计算 有 关 定 积分 应 用 的 各 种 题 型 。 


实验 的 基本 理论 与 方法 


上 利用 定 积分 计算 平面 图 形 的 面积 。 
由 连续 曲线 y= /(ху) (РО) 20) ， 直 线 x=a,x=bla < 扎 及 x+ 轴 所 转 成 的 曲 边 梯形 的 面积 为 


A=] fds 
2. 利用 定 积分 计算 旋转 体 的 体积 。 
由 连续 曲线 y= л). ВА хаха < 人 及 x 轴 所 围 成 的 曲 边 梯形 绕 x 畏 旋转 一 周 所 成 
立体 的 体积 为 
V= f ASON? 
3. 利用 定 积分 计算 平面 曲线 的 弧 长 。 
设 曲线 弧 由 参数 方程 ; 


apa ‚ (а<г<8) 
у= уй) 


th, eh җә, х0) 在 fx, 8] 上 具有 连续 导数 ， 则 曲线 弧 的 弧 长 为 


s= Јар? (D+ y” (dr 


实验 使 用 的 Mathematica 函数 


1. Solvel{ 方 程 1 方程 RR 1 变量 2}]. 求解 二 元 方程 组 。 

2. Рю Тх{х,а,Ь}]: 画 一 元 函数 图 形 。 

3. ParamefricPlot[fxftly[bjfbtlt2]]， 二 维 参 数 作 图 。 

4 ParametricPlotaD[{x=xfuuyjy=y[fuvlz=zfav]j,fuabhtwedj]:， 三 维 参 数 作 图 。 
5. mtegrate[flx],(xa.b)]: 计算 定 积分 。 

6. Show[f1,f2]: 将 函数 图 形 组 合 显示 。 
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实验 指导 


形 的 面积 。 


例 2.61 求 由 抛物 线 y =2x 和 直线 y=-x+4 所 


Ин &Ж ЕЕ. ШШ 2-6-1 BUR. 
In|]=Plot[(Sqrt[2x],-Sqrt[2x],-x+4),[x,0,9)] 
Out[]= 

- Graphics - 


图 2-6-1 


然后 求 出 两 条 曲线 的 交点 : 
In[]:=Solve[[yA2-2x==0,y+x-4==0),[x,y]] 
Out[]= 
{{хә 2, Y> 2}, {хә 8, y > -4)) 
再 以 y 为 积分 变量 求 面积 : 
In[]=s=Integrate[-y+4-yA2/2,(y,-4,21]1 
Onut[]= 
18 
#262 ЖЕ = 3cos9 和 双 纽 线 r=1+cos6 所 围 图 形 的 面积 。 
首先 求 出 两 条 曲线 的 交点 : 
Tn[]=Solve[[r-3Cos[t]==0,r-1-Cos[t]==0),(r,t)]] 
Out[]= 


нерее egi 


然后 画 出 两 曲线 所 围 的 图 形 ， 如 图 2-6-2 所 示 。 
In[]=fl=ParametricPlot[(3Cos[t]Cos[t] 3Cos[t]Sin[t]),(t,0,2Pi)]; 
f2=ParametricPlot[((1+Cos[t])Cos[t],(1+Cos[tDSin[t]),(t,0,2Pi)]; 
Show[f1,f2,AspectRatio->Automatic] 
Out[]= 
- Graphics - 
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图 2-6-2 


再 利用 定 积分 计算 面积 。 
Tn[]:=s1= Integrate[1+Cos[t],(t,0,Pi/3]J 
Out{j= 
УЗ x 
мы 
2 3 
In[]:=s2= Jntegrate[3Cos[t1,(t.Pi/3,PU/211 
Out[]= 
3 Е 23) 
2 | 
In[]:=s=2*(s1+s2) 
Out[]= 


x= arctanr 


#263 求 曲线 _1 2、 上 相应 于 从 :=0 到 + =1 的 一 段 弧 长 。 
了 = 了 In + ) 


ABH АВА, WE 2-6-3 所 示 。 
hf] ‘=ParametricPlot[{Arc Tan{t],(1/2)*Log[1+t^2]}{t,-2,2), 
AspectRatio->Automatic] 
Out[j= 
- Graphics - 


-1 -0.5 0.5 2 


FAR EIRE E НЕК. 
Tn[]:=dx=D[ArcTan[t),t] 
Out[]= 
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— 
1+2 
In[]:=dy=D[(1/2)Log[1+t*2],t] 


Out[]= 
19 
Let? 
In[]:=s=Integrate/Sqrt{dy^2+dx^2],{t,0,1 }//N 
Out[]= 
0.881374 
例 2.6.4 ЖЕРЕ хну = az 所 围 成 的 图 形 绕 * 轴 旋转 一 周 ， 计 算 所 得 旋转 体 的 
体积 。 
星 形 线 的 参数 方程 为 
тозган) 
у=аѕіп? г 


取 a=1， 画 出 星 形 线 的 图 形 ， 如 图 2-6-4 所 示 。 
In{}:=ParametricPlot[{(Cos[t])*3,(Sin[t) 3},{t,0,2Pi}, 
AspectRatio->Automatic] 
Out[]= 
- Graphics - 


利用 Mathematica 计算 旋转 体 的 体积 : 

In[]:=x[t_J:= a*Cos[t]^3; 

y[t }:= a*Sin[t]^3; 

dx=D[x[t],t]; 

v=2*Integrate[Pi*(y[t]) M2*dx,ít,0,Pi/2)] 
Out[]= 

32a3x 
7 105 
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实验 内 容 


练习 1 求 由 下 列 曲线 所 围 成 的 图 形 绕 指 定 轴 旋 转 所 产生 的 旋转 体 的 体积 : 
(1) ys, ry, уб. 

(2) Ó+ (y-5) ?=16, #x#; 

(3) ÆR x=aG(-—sinp,y=a0-cos) —#, у=0, 绕 直 线 y= 2a 。 
练习 2 求 下 列 已 知 曲 线 所 围 成 的 图 形 的 面积 : 


OD yj =e { 两 部 分 都 要 计算 ); 
(2) r=. 2sin0 5 7? = cos20 。 


练习 3 计算 半 立 方 失物 线 y? -= 之 (x)? 被 失物 级 y = 2 НИ ВЕ, 
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实验 2-7 ”空间 曲面 及 其 在 坐标 面 上 的 投影 


实验 目的 
掌握 用 Mathematica 绘制 空间 则 而 及 其 华 坐 标 面 上 投影 的 方法 。 
实验 的 基本 理论 与 方法 
1 描绘 空间 图形 的 截 疫 法 《 略 )。 
2， 字 闻 曲 线 在 坐标 前 上 的 投影 ， 设 曲线 工 的 方程 为 ， роот ， 消 去 z ， 得 


Н(х,у)=0 
z=0 И 


ну) =0, WMR LZ XOY FE hetera | 


实验 使 用 的 Mathematica 函数 


1. Plot3D[z[x,y].(x,a,b),(y,c,a)]: 描绘 通 数 = z(x,y) 的 图 形 。 
2. parametricPlot3D[{x[tsly[bs]l,zfbs]},[babjfsicdN: 描绘 三 维 参数 图 形 。 
3. Show[f1,f2,f3...1; 将 多 个 图 形 组 合 重新 明示 。 


实验 指导 


2 2 2 
例 2.7.1 RRE +2—+ AE. 
3 5 


х= costsin s 
椭 球 面 参数 方程 为 : +у=5зшгїпз, (OsS:s2m0<ss<sm,. 


z=2coss 
BH КИТЕШ. WE 2-7-1 所 示 。 
In[]:=a=3;b=5;c=2; 


ParametricPlot3D[ (a*Cos[t]*Sin[s],b*Sin[t]*Sin[s], 
c*Cos[s]),(t,0,2Pi),(s,0,Pi]] 
Out[]= 
- Graphics3D - 
例 2.7.2 画 出 莫 比 乌 斯 (Mobius) 带 的 图 形 。 莫 比 乌 斯 带 的 参数 方程 为 
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x=rcost 
y=rsint .(0sr<2r-l<v<]) 


z= 2vsin 2. 
2 


其 中 "= 4+ ycos 二 是 畏 助 函数 。 


画 出 莫 比 乌 斯 带 的 图 形 ， 如 图 2-7-2 所 示 。 
In[]:=r[t_,v_]:=4+v*Cos[t/2];x[t_,v_]:=r[t,v]*CosIt]; 
y[t_,v_]:=r[t,v]*Sin[t];z[t_,v_]:=2v*Sin[t/2]; 
ParametricPlot3D[(x[t,v],y[t,v],z[t,v]),(t,0,2Pi Һ{У,-1,1}] 
Out[]= 


= Graphics3D - 


图 2-7-1 


在 计算 重 积分 的 时 候 ， 为 了 确定 积分 变量 的 上 、 下 限 ， 我 们 通常 要 知道 积分 区 域 在 某 个 
坐标 面 上 的 投影 域 ， 利 用 Mathematica 可 以 绘制 空间 曲面 在 坐标 面 上 的 投影 。 


例 2.73 imut раат 并 观察 其 在 各 坐标 面 上 的 投影 。 


x=2usinv 
椭圆 抛物 面 参 数 方程 为 : y = Зисоѕу , (0<иха,0<у<2д). 


žan 


画 出 椭圆 抛物 面 的 图 形 ， 如 图 2.7-3 所 示 。 
In[]:=Clear[u,v]; 
d1=ParametricPlot3D[{2u*Sin[v],3u *Cos[v],u^2},{u,0,5},{v,0,2Pi}] 
Out[]= 
> Graphics3D - 
画 出 曲面 在 平面 x= -10 上 的 投影 ， 如 图 2-7-4 所 示 。 


一 


In[]:=d2=ParametricPlot3D[{-10,3u*Cos[v],u^2},{u,0,5},{v,0,2Pi}] 
Out[]= 
- Graphics3D - 


2-7-3 图 2-7-4 

画 出 曲面 在 平面 y=15 上 的 投影 ， 如 图 2-7-5 所 示 。 
In[]|:=d3=ParametricPlot3D[(2u*Sin[v],15,uA2),(u,0,5),(v,0,2Pi)] 
Out[]= 

= Graphics3D - 

画 出 曲面 在 ХОҮ 坐标 面 上 的 投影 ， 如 图 2-7-6 所 示 。 
In[]:=d4=ParametricPlot3D[(2u*Sin[v],3u*Cos[v],0),(u,0,5),(v,0,2Pi)] 
Out[]= 

- Graphics3D - 


30 


图 2-7-5 
将 上 述 图 形 组 合 ， 图 形 如 图 2-7-7 (а), (b) 所 示 。 
In[]:=Show[d1,d2,d3,d4];Show[d2,d3,d4] 
Out[]= 
= Graphics3D - 
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2-7-7 
81224 TEMM = 2 RE, ЭБЕТ Ано SR 
形状 。 
2 2 
双 曲 抛物 面 := 地 + 六- 参数 方程 为 ， х=х,у=у,:=- 


曲面 交 线 的 形状 ， 其 部 分 图 形 如 图 2-7-8 所 示 。 

In[]:=s1 = ParametricPlot3D[{x, y, -х^2/4 + у^2/9}, (x, -5, 5), (y, -5, 5}]; 

For[k = -4,k <5,k =k + 1, 

52 = ParametricPlot3D[{k, у, -x^2/4 + y^2/9}, 
{х, -5, 5}, (y, -5, 5},DisplayFunction -> Identity]; 

Show[s], 82, AxesLabel -> {"x=", k)]] 

Out[]= 
- Graphics3D - 


X, FERRY: 


H 2-7-8 
观察 平面 y=k 与 曲面 交 线 的 形状 ， 其 部 分 图 形 如 图 2-7-9 所 示 。 
In[]:=s1 = ParametricPlot3D[{x, y, -х^2/4 + yA2/9), (x, -5, 5), (y, -5, 5}]; 


=p 


For[k = -4, k < 5, k++, 
53 = ParametricPlot3D[{x, k, -х^2/4 + y^2/9}, {х, -5, 5), (y, -5, 5), 
DisplayFunction -> Identity]; 
Show[sl, 53, AxesLabel -> {"y=", k)]] 


(у=. 


(a) (b) 
2-7-9 
观察 平面 z=k 与 曲面 交 线 的 形状 ， 其 部 分 图 形 如 图 2-7-10 所 示 。 
In[]:=s1 = ParametricPlot3D[{x, у, -x^2/4 + yA2/9), (x, -5, 5), (y, -5, 5}]; 
For[k = -4, k < 3, k++, 
54 = ParametricPlot3D[{x, y, k), (x, -5, 5), {у, -5, 5), 
DisplayFunction -> Identity]; 
Show[sl s4, AxesLabel -> {"z=", k)]] 


@) (b) 


并 观察 它 与 平行 于 坐标 面 的 平面 的 交 


例 2.7.5 iñin 2- 
线 及 其 在 各 坐标 面 上 的 投影 。 


— b = 


x= 2secusin v 
x т 
у = 3secucosv ， (2 5452005У5 2п). 


一 =1 的 参数 方程 为 : 


д? 
“ЖШ —- 


z=2tanu 


先 观察 曲面 与 平行 于 各 坐标 面 的 平面 的 交 线 ， 如 图 2-7-11 所 示 。 
In[]:=y1=ParametricPlot3D[(2*Sec[u]*Sin[v],3Sec[u]#Cos[v],2Tan[u]), 
{u,-Pi/3,Pi/3},{v,0,2Pi}] 
y2=ParametricPlot3D[{2,3Sec[u]*Cos[v],2Tan[u]}, 
{u,-Pi/3,Pi/3},{v,0,2Pi},DisplayFunction->Identity]; 
y3=ParametricPlot3D[(2*Sec[u]*Sin[v],2,2Tan[u]), 
{ u,-Pi/3,Pi/3),(v,0,2Pi),DisplayFunction->Identity]; 
y4=ParametricPlot3D[{2*Sec[u]*Sin[v],3Sec[u]*Cos[v],-2}, 
{u,-Pi/3,Pi/3},{v,0,2Pi},DisplayFunction->Identity]; 
Show[yl, y2, AxesLabel -> {"х", "y", "z"}, PlotLabel -> {" 
Ѕһоу/[у1, уЗ, AxesLabel -> {"x", "y", "z"}, PlotLabel -> {" 2} 
Show[y1, y4, AxesLabel -> {"x", "у", "z"}, PlotLabel -> {"z=", -2}] 


图 2-7-11 


一 2 一 


再 观察 曲面 在 各 坐标 面 上 的 投影 ， 如 图 2-7-12 所 示 。 
In[]:=Clear[u,v]; 

yl1=ParametricPlot3D[{2*Sec[u]*Sin[v],3Sec[u]*Cos[v],2Tan[u]}, 
{u,-Pi/3,Pi/3},{v,0,2Pi}]; 

y2=ParametricPlot3D[{-4,3Sec[u]*Cos[v],2Tan[u]}, 
{u,-Pi/3,Pi/3},{v,0,2Pi},DisplayFunction->Identity]; 

y3=ParametricPlot3D[(2*Sec[u]*Sin[v],6,2Tan[u]), 
(u,-Pi/3,Pi/3),(v,0,2Pi),DisplayFunction->Identity]; 

y4=ParametricPlot3D[(2*Sec[u]*Sin[v] 3Sec[u]#Cos[v],-3.5), 
(u,-Pi/3,Pi/3),[v,0,2Pi),DisplayFunction->Identity]; 

Show[yly2,y3,y4] 

Show[y2,y3,y4,DisplayFunction->$DisplayFunction] 


图 2-7-12 
例 27.6 ШНА 25—27 ‚© _-1 ур, 并 观察 它 与 平行 于 坐标 面 的 平面 的 
交 线 。 
ЖИЗА -X E -1 的 参数 方程 为 ee (0<и<л,0<›<2л). 


z= Зап u|cos v 


观察 它 与 平行 于 坐标 面 的 平面 的 交 线 ， 如 图 2.7-13 所 示 。 
In[] :=r1=ParametricPlot3D[(4Abs[Tan[u]] *Sin[v],5Sec[u], 

3Abs[Tan[u]]*Cos[v]),(u,0,Pi),(v,0,2Pi)]; 

r2=ParametricPlot3D[{; 2,5Sec[u], 3Abs[Tan[u]]*Cos[v]), 
{u,0,Pi},{v,0,2Pi},DisplayFunction->Identity]; 

r3=ParametricPlot3D[{4Abs[Tan[u]]*Sin[v],10,3Abs[Tan[u]]*Cos[v]}, 
{u,0,Pi},{ v,0,2Pi},DisplayFunction->Identity]; 

r4=ParametricPlot3D[{4Abs[Tan[u]]*Sin[v],5Sec[u],1 k 
{u,0,Pi},{v,0,2Pi},DisplayFunction->Identity]; 


ж, а 


Show[rlr2, AxesLabel -> {"х", "у", "2z"}, PlotLabel -> {"х=", 2}] 
Showl[r1,r3, AxesLabel -> {"х", "у", "z"}, PlotLabel -> {"y=", 10}] 
Show[rlr4, AxesLabel -> {"х", "у", "z"}, PlotLabel -> {"z=", 1}] 


图 2-7-13 


例 2.7.7 画 出 圆锥 面 z =x?+y? 的 图 形 ， 并 观察 不 同 平面 与 圆锥 面 的 交 线 的 形状 。 


X=usiny 
у=исоѕу, (-3<и<3,0<у< 2л). 


т=н 


圆锥 面 z? =x? + у? 的 参数 方程 为 : 


观察 不 同 平面 与 圆锥 面 的 交 线 的 形状 ， 如 图 2-7-14 所 示 。 
In[]|:=t1=ParametricPlot3D[(u*Sin[v],u*Cos[v],u),(u,-3,3),(v,0,2Pi)]; 
t2=ParametricPlot3D[(1,u*Cos[v],u),(u,-3,3),(v,0,2Pi)]; 
t3=ParametricPlot3D[{x,y,-2-x},{x,-3,3},{y,-3,3}]; 
t4=ParametricPlot3D[(u*Sin[v],u*Cos[v],-2),(u,-3,3),(v,0,2Pi)]; 
tS=ParametricPlot3D[(x,y,-3/2-x/2),(x,-3.3),(y,-3,3)1; 
Show[t1,t3];Show[t1,t2];Show[t1,t4];Show[t1,t5] 
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图 2-7-14 
例 2.7.8 描绘 上 半球 面 ==y4-x? -y 与 锥 面 z+2= r +y2 所 围 成 的 立体 ， 并 观察 在 


YOZ 面 上 的 投影 。 
画 出 半球 面 , 锥 面 , 它们 所 围 成 的 立体 及 其 在 YOZ 面 上 的 投影 的 图 形 , 如 图 2.7-15 所 示 。 
In[]:=d1=ParametricPlot3D[{2*Cos[t]*Sin[s],2*Sin[t]*Sin[s], 
2*Cos[s]},{t,0,2Pi},{s,0,Pi/2}]; 
d2=ParametricPlot3D[{u*Sin[v],u*Cos[v],u-2},{u,0,2},{v,0,2Pi}]; 
Show[d1,d2,ViewPoint->{1,2,0}] 
d3=ParametricPlot3D[{-2,2*Sin[t]*Sin[s],2*Cos[s]},{t,0,2Pi},{s,0,Pi/2}, 
DisplayFunction->Identity]; 
d4=ParametricPlot3D[{-2,u*Cos[v],u-2},{u,0,2},{v,0,2Pi}, 
DisplayFunction->Identity]; 
Show[d3,d4,d1,d2,ViewPoint->{1,2,0},DisplayFunction->$DisplayFunction] 


— Wi 


图 2-7-15 


例 2.7.9 НИНИ сау? 与 平行 于 XOY 面 的 平面 的 交 线 及 其 在 坐标 面 上 的 


投影 。 
观察 曲面 与 平行 于 XOY 面 的 平面 的 交 线 及 其 在 坐标 面 上 的 投影 ， 图 形 如 图 2-7-16 所 示 。 
In[]:=d1=ParametricPlot3D[{2s^(1/2)*Cos[t],s^(1/2)*Sin[t],s}, 
{t,0,2Pi},{s,0,4},DisplayFunction->Identity]; 


For[s=0,s<=4,s++, 
d2=ParametricPlot3D[{2s^(1/2)*Cos[t],s^(1/2)*Sin[t],0},{t,0,2Pi}, 
DisplayFunction->Identity]; 
d3=ParametricPlot3D[(2r*Cos[t],r*Sin[t],s),(t,0,2Pi),(r,0,2), 
DisplayFunction->Identity]; 
Show[d1,d2,d3,ViewPoint->{1,2,1},D; layFunction->$DisplayFunction, 
AxesLabel -> {"х", "y", "z"}, PlotLabel -> {"z=", s)]] 


Р 2-7-16 
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实验 内 容 


练习 1 利用 计算 机 画 出 曲面 z=2- (22) (0<z<2) 的 图 形 及 其 在 三 个 坐标 面 上 的 投影 。 
练习 2 画 出 由 方程 162+42-2=0 所 表示 的 曲面 。 
练习 3 画 出 曲面 C+4+92=36 以 及 曲面 在 三 个 坐标 面 上 的 投影 


练习 4 求 曲面 z=Yx?+y? 与 2-2x 转 成 的 立体 在 三 个 坐标 面 上 的 投影 。 
练习 5 自由 练习 描绘 各 种 空间 图 形 。 
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实验 2-8 ”多 元 函数 微分 学 


实验 目的 
掌握 用 Mathematica 求解 多 元 谓 数 微分 学 的 各 种 问题 。 
实验 的 基本 理论 与 方法 


1. 偏 导数 的 概念 及 其 求法 ( 略 )。 
2 全 向 分 的 求法 : 如 果 函 数 z = уо, у) MASE д: тм ж, ШЕЙ А 


ж, ЖН. 
ЕСА 9z 
ау 
з. 多 元 复合 函数 的 求 导 法 则 (上 略 )。 
а. 隐 通 数 的 求 导 公式 《上 略 )。 
5. 方向 导数 的 求法 ， 设 函数 z= f(x,y) 在 点 P(x,y) 可 微 ， 那 么 函数 在 该 点 沿 任意 方向 


l={cosa, cos 0) 的 方向 导数 存在 ， 且 
S= esyycosa+ 记 (ncosp 
6. 车 函数 ¿= for EPERRA р 内 具有 一 阶 连续 偏 导数 ， пика iiy ЕТА 
= у(х, y) #E Р(х, у) 的 梯度 ， 记 作 grad f, y) e 


实验 使 用 的 Mathematica 函数 


1.D[fpxy]x]: 求 了 对 的 偏 导 数 。 

2. DIfixyy],x,y]: Жу Ж] х,у {ӨН Ж. 
3.D[fIx,y],(x,n)]: Жу 9) x 0н EUR S 3, 

4. Оху, 求 了 对 x 的 导数 , 视 y 为 xz 的 函数 。 
5. Dtlfxy]]: 求 了 的 全 微分 。 

6. uv: 求 向 量 w,v 的 数量 积 。 
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#1281 Шеш! +у?, 


ш[:=С1еаг{®,х,у]; 


zlx_,y_]:=Log[Sqrt[xA2+yA2]]; 


Diz[x,y]x] 
Out[]= 
x 
хуу? 
ш[:=О[2{х,у}х/.{х->1,у->1} 
Out[]= 
1 
2 
In[]:=D[z|[x,y],tx,2]1 
ОшП= 
2x? 1 
Ay ° юу 
Tn[]:=D[z[x,y),x,y] 
Out[]= 
2xy 
7 уду? 
In[]:=Dt[z[x,y]I 
Out[]= 


2 xDt[(xJ] + 2yDtry] 


2 (X2 + уду 
а 2 
51282 BuO y=asinx,z = созх, R ФИ, ие 
а? +1 dr ü 
Tn[]:=y[x_1:=a*SinÍx]; 
z[x_]:=Cosix]; 


u[x ,y_,z. ]!=EA(a*x)*(y[x]-z[xD/(aA2+1); 
D[u[x,y,z],x];Simplify[%] 
Out[]= 
eSintx] 
In[]:=D[olx,y,z], {x,2}]; 
Simplify[%] 
Out[]= 
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ӘХ (Соз[х] + a Sin[x]) 
Iní]:=Di[u[x,y,z],Constants->1a)1; 
Simplify[%] 
Out[]= 
e#*Dt [x, Constants > (a)] Sin[x] 
即 du =е® sin ліх 
#283 #гс=/(2х-у)+(х,лу), НФ FG) -< 阶 可 导 ，g(uv) 具有 二 阶 连 续 偏 导数 ， 


pa эз эз 
dx ax? Drdy ” 


MmA:=DIf2x-y]+gixx*y]x] 
Qut[]= 

2Ё{2х-ур+уд? (x, xy] +900, xy] 
Tn[]:=DIf[2x-y]+g[x,x*y],(x,2)1:; 

Simplify[%] 

Out[]= 

42'12х-у] у? 92 [х, ху] + 2ygt х, xy] +929 |x, ху] 
In[]:=D[f[2x-y]+g[x,x*y],x,y] 
Onut[]= 

-2f'[2x-y] +9090 [x, xy] + xygt02 (x, xy] + xat? ix, ху] 


(LO u, дв Odu, руде 90:0 [u, v] 3 Ex ghd ги, эл а?а 
其 中 g’ м$, ИМИ! 1 为 3 ， м, А" 


284 已 知 z= +E) ЕНД х йык: 


In|[]:=z=x*y+x*F[y/x]; 
x*D[z,x]+y*D([z,y]-z-x*y; 
Simplify[%] 
Qut[]= 
0 


例 2.8.5 设 说 +y2+z2-4z=0， 求 虹 9 


а’ d” 
有 以 下 两 种 求解 方法 ， 
(1) In[]|:=F=xA2+yA2+zA2-4z 
Out[]= 
Kary- 4252? 
Tn|[]:=dzx=Simplify[-DIF;x]/D[Ez]] 
Outí)]= 
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x 


2-2 
1]n[]:=dzy=Simplify[-D[F,y]/D[F,z]] 
Out[]= 
y 
2-2 
(2) In[]:= ед1 = х^2 + y^2 + z[x]^2 -4z[xl== 0; 
Dieq1, x]; 
Solve[ %, z'[x]] 
Out[}= 


[e 60) 


+ ZÍX] 
In[]:= eq2 = х^2 + у^2 + z[y]^2 - 4z[y] == 0; 
Drleq2, у]; 
Solve[%, z'[y]l 
Out[]= 


; ди ди dv Әу 
2.8, - уу=0, =, RI с 一， 一。 
0] 2.8.6 ли yv=0, yu+ xv УЗУ ду 


pôu ду 

жж--, >° 

In[]:=D[(x*u[x]-y*v[x]Ü==0,y*u[x]-x*v[x]==1),x]; 
Simplify[Solve| %,fu'[x],v'[x]11] 


Out[]= 
， Xxu[2] +уу[х] ушх; - xv[x] 
ыта "` ат ‚Ух э 2 = H 
ди ду 
再 求 一 ,一 。 
ду ду 


щ[:=О[{х*щу]-у*у[у]==Ө,у®ш[у]+х®у[у]==1},у]; 
Simplify[Solve[%,(u'[y],v'Iy1H1 
Out[]= 
u -yuly] +xv{y] А xu[y] +y víy] 
{fe [y] > 一 - гу (маэ - туй p 
B| 287 Жи = yE (512) 处 的 梯度 ， 并 求 沿 从 点 百 (51.2) 到 P(9.414) 方向 的 方 
向 导数 。 
ERAM и = xyz fE Р, (51,2) 处 的 梯度 。 
In[]:=Clear[a, b, £, x, y, 2]; 


{[х_,у_,2_]:=ху>; 
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gradf = Array[b, 3]; 

bE) = DIflx, у, z], x]; 

b[2] = D[t[x, y, 2], у]; 

ЫЗ] = DIffx, y, z], z]; 

gradf/. {x -> 5, y -> 1, z -> 2} 
Out[]= 

i2, 10, 5) 


R5 PP 同方 向 的 单位 向 量 。 


In[]:=A = Array[a, 3]; 
ar =9-5;af2]=4.1;al3]=14-2; 
е = A/Sqgrt[A.Al; 

求 从 点 号 (5,1,2) 到 P(9,4,14) 方 向 的 方向 导数 。 
In[l:=df = gradf.e /. {x -> 5, y -> 1, z -> 2} 
Out[]= 

98 
13 


例 288 观察 函数 u= 在 点 PCQL-12) 处 沿 什么 方向 的 方向 导数 最 大 ， 并 求 此 方向 


导数 。 
先 求 在 点 尸 处 沿 单位 向 量 e = (а,Ь, с} 方向 的 方向 导数 。 
Tnl]=Clear[e, a, b, c, t]; 
х,у ,2]:=ху^22; 
e= (а,Ь, c); 
gradf = Array[g, 3]; 
811] = DIfix, у, z], х); g[2] = DIf[x, у, z], у]; 
8[3] = DIfTx, у, z], z]; 
dfe = (gradf /. {x -> 1, y -> -1, z -> 2р.е 
Out[]= 
2a- 4b+c 
利用 拉 格 良 日 乘 数 法 求 使 方向 导数 取得 最 大 值 的 。。 
Int]:=Fla_,b_,c_] := 2a - 4b + c + t(a^2 + bA2 + cA2 - D; 
s = Solve[[D[F[a, b, c], a] = 0, DIF[a, b, c], b] == 0, 
р[Е[а, b, c], c] == 0, a^2 + bA2 + eA2 == 1}, {a, b, c, tH 


Outf]= 
[fas - 2 boé ‚сә- t - 102) 
V21 wal vZ 2 
{| 
КРИ У2ї V21 2 
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最 后 求 方向 导数 的 最 人 值 。 
In[]: =dfe /. s[[1]] 
Out[]= 
КРТ 
In[]:=dte 7. st[2]] 
Ош [= 
va 
即 沿 e = {- => = -7p 方向 的 方向 导数 最 小 ， 沿 6, = сш = = 方向 的 最 大 。 
In[]:=G =gradf /. {x -> 1, y -> -1, z -> 2}; 
G/Sqrt[G.G] 


Out[]= 
2 4 1 


атут уш) 
可 以 看 出 ez 的 方向 与 点 己 处 的 梯度 的 方向 一 致 ， 即 沿 梯度 方向 的 方向 导数 最 大 。 


实验 内 容 


练习 1 计算 下 列 各 题 ， X B EA E m 4 了 画图 


CD и=е (уз), ж, 9 9 5, €; 


= =e, RË, 
(2) z=arctan(xy),y=e*, Жз 


(3) ста шун у =3х-2у , жй, š: 


dz dz z 
《4) 已 知 z= Го»), 其 中 Роу) 具有 两 阶 连 续 的 偏 导数 ， RŽ, D'a у" 


J2 Rz=-— 2, 3 ‚ ig l392 192 z 
练习 2 设 z ГЕЛ 其 中 f(w) 为 可 导 函 数 КЫТ у 
练习 3 Eje —ху+2у?+х-у=1, ж, 


х=е“ tusinv ， ди ди w O 


4 =, ==, —. зе 
练习 af е“ —ucosy х ду х ду 

练习 5 RER с=ш(х+ у) ERAR у? = 4x 上 点 02) ЖАННИ ЕЛЕ ЖАЙЫ х 
正 向 的 切线 方向 的 方向 导数 ， 
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实验 2-9 ”多 元 函数 微分 学 的 应 用 


实验 目的 
掌握 用 Mathematica 求解 多 元 函数 微分 学 应 用 的 各 种 问题 。 
实验 的 基本 理论 与 方法 
1. 空间 曲面 的 切 平面 与 法 线 OW. 


2 空间 曲线 的 切线 与 法 平面 《 略 )。 
3. 多 元 函数 极 值 的 充分 条 件 : 设 ¿= fx. у) EA (xo, yo) 的 基 邻 域内 具有 二 阶 连续 偏 导 数 ， 


又 fo у) f оф, ») = 0, Ф fu (хо, уу) = A, (ху, уо) = В. f (хосу) =, M) f(x, y) fE 


(хо, Yo) Ж 
‹1) 4C-B? >0 时 具有 极 值 ， 当 4<0 时 有 极 大 值 ， 当 4> 0 时 有 要 小 值 ; 
(2) АС-В? <0 时 没有 极 值 ; 
(3) АС-В? =0 时 不 能 确定 是 否 有 极 值 。 
4 条 件 极 值 与 拉 格 裔 日 乘 数 法 ; REM и = /xx у, г) EARE p(x,y,z) = Оду(х, у) = 0 
下 的 条 件 极 值 的 方法 是 ， 构 造 函 数 F(x,y,z) = Р(х, ус) ф(х, y, z+Pwtryz) ， 求 解 方程 组 : 


f. y, z) + @.(z,y,z) Ttow,(x,y,z) = 0 
fF T+ (Lz) + tog, (x, y, z) = 0 
Р.У) оф, у, 0) + tog, (x,y,z) =Ü 
ф(х, y, z) = 0 
у(х, y.z)=0 


即 得 到 可 能 的 极 值 点 。 


5 最 小 二 乘法 与 曲线 拟 合 ， 册 线 拟 合 有 多 种 方法 ， 其 中 最 小 二 乘法 是 常用 的 一 种 。 
最 小 二 乘法 的 原理 是 : 给 定 平面 上 一 组 点 (xDG=12… 站 ， 求 请 数 f(x) ， 使 


= Уруу) y, 达到 最 小 。 
k=} 
设 拟 合 函 数 的 基底 为 


PLA) н (X) 
拟 合 函数 为 
РО) = соро) + сүф (H+ +c 0 (0) 
确定 co,c2,…,cn， 使 方差 5 达到 极 小 ， 此 时 得 到 的 F(x) 即 为 所 求 。Mathematica 提供 了 最 基 
本 的 数据 拟 合 函 数 Fit. 


一 124 一 


实验 使 用 的 Mathematica 函数 


1. Solve: 求解 方程 或 方程 组 。 
2.ЮИ{х,у],{х,у}]: 32 лий КИЙЕ 
3. ParametricPlot3D: 一 维 参数 绘图 。 

4. ListPlot， 平 面 数据 散 点 绘图 ， 

5. Fit， 平 面 数据 曲线 拟 和 。 

buv: 求 向 量 w,v 的 数量 积 。 


实验 指导 


例 2.9.1 Жи у(х у)у=х'—у°+3х? +3у2 —9х ВИЙ. 


首先 求 出 函数 的 驻 点 ， 再 利用 极 值 的 充分 条 件 判 断 驻 点 是 再 为 极 值 点 。 
ш[]:=С1еаг{х,у,г,а,һ,с,й„]; 
f[x_,y_]:=xA3-yA3+3xA2+3yA2-9x; 
a=D{ffx,y],{x,2}; 
b=DIf[x,y],x,y]; 
с=р[йх,у}{у,2}]; 
d=a*c-b^2; 
t=Solve[(D[f[x,y]]==0,x],DIIx,y]==0,y1),(x,y)1; 
l=Length{t]; 
Forli=1,i<=l,i++, 
РН; 
di=d/.t[[i]]; 
al=a/.t[[i]]; 
z=flx,y]/-t[i]]; 
Which[d1>0&&a1<0,Print["fmax="' z] 41>0&&al1>0,Print[”fmin=", z], 
d1 == 0, Print["No Sure"], d1 < 0, Print["No"“J] 


] 
Out[]= 
{хэ -3, y > 0) 
No 
{хэ -3, y > 2} 
fmax=31 
{хә 1, Y> 0) 
fmin--5 
{кә 1, y> 2) 
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No 
例 292 抛物 面 z= х +y2 被 平面 x+ y+z=1 截 成 一 椭圆 ， 求 原点 到 这 椭圆 的 最 长 与 最 


短 距离 。 
先 画图 形 如 图 2-9-1 所 示 。 
In[]:=t1=ParametricPlot3D [(u*Sin[v],u*Cos[v],u*2 },{u,0,2},{v,0,2Pi}]; 
t2= ParametricPlot3D [(x,y,1-x-y МЪх,-2,2},{у,-2,2}]; 
Show[t1,t2,ViewPoint->{-3.291,0.389,0.686}] 


Out[]= 
- Graphics3D - 
2-9-1 
再 用 Lagrange 乘 数 法 求解 。 
In[]:=flx_,y_,z_]:=xA2+yA2+zA2; 


g[x_,y_,z_]:=xA2+yA2-z; 
h[x_,y_,z_]:=1-x-y-z; 
Flx_,y_z_,t1_,t2_]:=flx,y,zz]+t1*g[x,y,z]+t2*h[x,y,z]; 
u=NSolve[{D[F[x,y,z,t1,t2]==0,x],D[F[x,y,z,t1,t2] ==0,y], 
D[F[x,y,z,t1,t2]==0,z],g[x,y,z]==0,h[x,y,z]==0),(x,y,z,t1,t2)] 
Out[]= 
((z 3.73205, t2> 13.3509, t1» -5.88675, x> -1.36603, y> -1.36603), 
{z> -0.5+1.9984х107151, t2> 0. +0. i, 015 -1.+2.22045х10751, 
x> 0.75- 0.901388i, у > 0.75+ 0.901388i}, {z>-0.5-1.9984x10 "i, 
t2» 0.+0. i, 015-1. -2.22045х10751, х 0.75+0.901388i, у > 0.75- 0.9013881}, 
(29 0.267949, t2- 0.649147, t1> -0.113249, x> 0.366025, y> 0.366025} } 


第 2，3 组 解 是 复数 ， 舍 去 。 将 1，4 组 解 代入 。 
In[]:=flx,y,zY-ul[11]; 


一 了 一 


Sqrt[%] 

Out[]= 
4.20241 

In[]:=flx,y,z]-ul[4]1; 
Sart[%] 

Out[]= 
0.582877 

得 到 最 短 距 离 0.582877 ， 最 长 距离 4.20241。 


例 2.9.3 RAK ух, y) = x? +y’ -12x+16y 在 t+y2<25 上 的 最 大 值 和 最 小 值 。 


ЖЖ у(х, ENR x? + у? <25 内 的 最 大 值 和 最 小 值 。 


ы[:=Ї{х_,у_[:=х^2+у^2-12х + 16y; 
t = Solve[(DI[flx, y] == 0, х], DIf[x, y] == 0, yl}, (х, yH 


Out[]= 

({хэ 6, Y» -8}} (* 驻 点 *) 
In[|:=xA2 + y^2 - 25 /. t[[1]] 
Out[]= 


75 


该 性 点 在 圆 外 ， 贺 内 无 驻 点 ， 故 不 取得 极 值 。 下 面 考 虑 圆 x? + y? =25 上 的 最 值 。 这 是 


SOD ERRE с? + у? =25 下 的 条 件 极 值 ， 用 Lagrange RERE. 


In[]:=Clear[x, y, F, t]; F[x_, y_, t_] := ffx, y] + t(x*2 + yA2 - 25); 
s = Solve[(D[F[x, y, t] == 0, x], D[F(x, y, t] == 0, у], 
D[F[x, y, t] == 0, tl}, (х, y, tH 
Out[]= 
{{t> -3, X> -3, y + 4}, {t> 1, x> 3, y> -4}} 
Tnll:=flx, y] /. 81] 


Out[]= 
125 
Tn[]:=flx, y] /. sI[2]] 
Out[]= 
-75 
由 此 可 得 ， 在 *= -3?=4 处 取得 最 大 值 125， 在 x=3,y = -4 处 取得 最 小 值 75. 
х=2соз! 
例 2.9.4 求 螺旋 线 17 = 2sint ， 在 := 于 处 的 切线 方程 和 法 平 洒 方程， 并 画 出 图 形 。 
z=t 
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求 切 点 坐标 : 
In|]:=Cltear[p, s, n, a, b, t1, t1, t3, t4, x, y, z]; 
p = [2Coslt], 2Sm[t], t} /. t -> Pi/4 
Out[]= 


2.42, т) 


求 切线 的 方向 向 量 : 
Tn[]:=s = Array[a, 31; 
а[1] = Df2Cos[t), t] /. t -> Pi/4; 
a[2] = D[2Sin[t], t] /. t -> Pi/4; 
a[3] = Dit, t] /. t -> РИ4; 
s 
Out[]= 
{-У2,У2,1) 
求 切线 方程 ; 
Inll:=b ={х- Ба), y - Sqrt[2], z - Pi/4); 
bs 《〈* 与 的 对 应 坐标 的 商 ， 表 示 直 线 方程 * ) 


Out[]= 
[- MERES 2 y T 2} 
V2 У? 4 
求法 平面 方程 : 
In[:=bs == 0;Simplify[%] 
Out[]= 


УЗу+®+е T+ Vax 


即 切 线 方程 为 一 =й. эй л, 法 平面 力 程 为 Vax-V2y 一 z+ 于 =0。 
最 后 画 出 螺旋 线 的 切线 和 法 平面 的 图 形 ， 如 图 2-9-2 所 示 。 
Tn[]:=t1 = ParametricPlot3D[(2Cosit], 2Sin[#], t), (t, -Pi, 2Pi)]; 
t2 = ParametricPlot3D[fSqrt[2] - Sqrt[2]*t, Sqrt[2] + Sqrt[2]*t, 
Pi/4 + t}, (t, -1.5, 2H; 
t3 = ParametricPlot3D[{x, у, Pi/4 + Sqrt[2] x - Sqrt{l2]y}, 
{х, -1, 3}, {у, -1, 3H; 
t4 = Graphics3D[{RGBColor{1, 0, 0], Point[{Sqrt[2], Sqrt[2], Pi4H}]; 
Showftl, t2, t3, t4, PlotRange -> {-5, 5}, 
ViewPoint -> (3.142, -1.169, 1.097] 
Out[D= 
- Graphnics3D - 
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(a) (b) 


Р 2-9-2 


In[]:=Clear[x, y, z, p]; 
p = (x -> 1, y[x] -> -2, z[x] -> 1}; 
t = Solve[{D[x^2 + у[х]^2 + 21х]^2 == 6, х], 
D[x + y[x] + z[x] == 0, х]}, {y'[x], z'[x])] 
Out[]= 


x - Z [X] ш -Х+у[х] 
{{Ym "yaaa er 
求 切线 的 方向 向 量 e : 
In[]:=Clear[e, а]; 
e=Array[a, 3]; 


a[l] = 1; a[2] = t[[1, 1]] /. р; а[3] = ЧП, 2]] /. p; 


е 
Out[]= 
(1, y(1] > 0, Z(1] > -1) 
求 切线 方程 : 
In[]:=f= {x- 1,y+2,z-1);f/e 
Out[]= 
{-1+х, 2+y б -1+ 2 ) 
УТЫ > 0” z{1] >-1 
求法 平面 方程 : 


In0:={t 0, -1}.f == 0 


— 99 — 


у+2 _{-1 


0 -1° 


раа 


#1296 RRE + y2 +4 =14 在 (1,2,3) 处 的 切 平面 及 法 线 方程 。 


先 求 出 曲面 在 点 由 2.3) 处 切 平 面 的 法 向 量 ， 
In[]:=CIear[p, n, E, f]; 
Flx_, y_, z_1:= xA2 + yA2 + zA2 - 14; 
p= {х -> 1, у->2,2-> 3}; 
n = Array[m, 3]; 
m[1] = DEF{x, у, z], x] /. р; m[2] = D[F[x, y, z], у] /. р; 
m[3] = D[F[x, y, z], z] /. p; 
n 
Ош 
{2, 4, 6} 
再 求 切 平面 方程 ， 
Ifl:=f=íx-1,y-2,z-3); 
af == 0; 
Simplify[%] 
Out[]= 
-28+2x+4y+6z== 
服 后 求法 线 方程 : 
imf]=fn 
Out[]= 


1 1 1 
(5 Сї+ю, Joby 3.2] 


ШИЛЕЙ УЖЕ х+2у+3:-14=0, жейли 12922.13 А 


下 面 画 出 曲面 及 其 切 平面 和 法 线 的 图 形 ， 如 图 2-9-3。 
In{]:=Clear{t1, t2, t3, t41; 
t1 = ParametricPiot3D[{(Sqrt{14] Cos[t] Sinfs], Sart[14]Sin[t]Sin[s], 
Sqrtl14]Coss]), (t, 0, 2РЇ}, (s, 0, РІН; 
0 = ParametricPlot3D[í1 + t, 2 + 2t, 3 + 3t), {t, -1, 1); 
t3 = ParametricPlotD[(x, y, (14 - x - 253), {x, -4, 4), (у, -4, 4}]; 
t4 = Graphies3D[(RGBColorí1, 0, 0], Point[{1, 230); 
Showftb t2, t3, t4, PlotRange -> {-5, 5), 
ViewPoint -> (3.284, -1.302, 1.117} 


Out[]= 
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- Graphics3D - 


H 2-9-3 


例 2.9.7 试 证 曲面 x+Wy+Vz = Ja (а> 0) 上 任何 点 处 的 切 平面 在 各 坐标 轴 上 的 截 距 


之 和 等 于 a 。 
先 求 曲面 在 点 (xo, yo, zo) 处 的 切 平面 在 各 坐标 轴 上 的 截 距 : 
In[]:=Clear[x, y, z, F, n, b1, b2, b3, a]; 
F[x_,y_,z_] := Sqrt[x] + Sqrt[y] + Sqrt[z] - Sqrt[a]; 
p = {x -> x0, y -> y0, z -> z0}; 
n = Аггау[а, 3]; 
а[1] = D[F[x, у, z], x] /. р; 
а[2] = D[F[x, у, z], у] /. р; 
а[3] = D[F[x, у, z], z] /. р; 
eq = {{х - x0, y - y0, z - z0).n == 0}; 
b1 = Solve[eq /. (y -> 0, z -> 0), x] 
b2 = Solve[eq /. (x -> 0, y -> 0), z] 
b3 = Solve[eq /. (x -> 0, z -> 0), y] 
Out[]= 
(х Vx0 (Vx0 + Vy0 + Vz0)}} 
[(z> (Узб + Ууб + Уб) V20]) 
[[y> V0 (56 + Ууб + У20))) 


即 在 x 轴 上 的 截 距 为 Jxo (xo + Дуо + zo) > fE y ERIEN Syo Yro + mo + zo); 在 z 


轴 上 的 截 距 为 Vzo ( Xo +y Yo +z). 


In[]:=x = Sqrt[x0]*(Sqrt[x0] + Sqrt[y0] + Sqrt[z0]); 

у = Sqrt[y0]*(Sqrt[x0] + Sqrt[y0] + Sqrt[z0]); 

z = (Sqrt[x0] + Sqrt[y0] + Sqrt[z0])*Sqrt[z0];x +y + z 
Out[]= 


— 181 — 


М0 [VX0 + ууй + V20) + 
уб (М0 + Муй +720). (У х0 + Уу0 + V z0) V z0 
In|]:=Simplify[%]/., 8чг{х0] + Sqrt[y0] + Sqrtfz0] .> Sqrt[a] 
Out[]= 
a 


即 得 切 平面 在 各 坐标 轴 上 的 截 距 之 和 等 于 a 。 


例 2.9.8 为 了 测定 刀具 的 磨损 程度 ， 每 隔 ! 小 时 〈h)， 测 量 一 次 刀具 的 厚度 ， 得 到 一 组 


实验 数据 如 表 2-9-1 所 示 。 
$291 实验 数据 
序号 i 0 1 2 3 4 5 6 7 
В 2, fh 0 1 2 3 4 5 6 7 
刀具 厚度 уп 27.0 | 268 | 265 | 263 | 261 | 252 | 253 | 248 


试 根据 上 面 的 实验 数据 建立 y 和 :之 间 的 经 验 公 式 y = AD 。 
先 画 出 数据 的 散 点 图 ， 如 图 2-9-4 所 示 : 
In[]:=a = {{0, 27}, (1, 26.8), (2, 26.5), (3, 26.3), {4, 26.1), 
{5, 25.7}, {6,25.3}, 17, 24.8}; 


b = ListPlot[a, PlotStyle -> (PointSize[0.02], RGBColorí1, 0, 0]}]; 
Out[]= 


- Graphics - 
用 直线 y=ao tax 进行 拟 合 ， 
Tn[]:=Fit[a, {1, x}, x] 
Out[]= 
27.125- 0.303571 x 
画 出 拟 合 图 形 ， 如 图 2-9-5 所 示 : 
In[]:=e = Plot[%, (x, 0, 7}, DisplayFunetion -> Identity];Show[b, c] 


Out[]= 
- Graphics - 
27 
И гт 
26.5 - 
4 26.5 
26 . <. 
26 
+ 
25.5 25.5 
| + 2 9 са 575 4 | 1 ¿2 з 4 5 6 7 
Æ 2-9-4 Æ 2-9-5 
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计算 误差 4 : 
In||:=Suml[(a[fi, 21] -27.125 + 0.303571 affi, 11D’2, (i, 1, 8}] 
Out[]= 
0.108214 
用 一 次 多 项 式 拟 合 
Jn[]:=Fit[a, {1, x, x^2}, x] 
Outfj= 
26.9625- 0.141071x- 0.0232143х^ 
画 出 拟 合 图 形 ， 如 图 2-9-6 所 示 : 
In[]:=¢ = Plot{%, {x, 0, 7}, DisplayFunction -> Identity];Show[b, c] 
Out[]= 
- Graphics - 
计算 误差 M : 
Ini1:=Sum[(alfi, 2]] - 26.9625+ 0.141071*a[[i, 11] + 
0.0232143*a[[i, 171^2)^2 , fi, 1, 81) 
Outfj= 
0.0176786 
用 二 次 多 项 式 拟 合 : 
In[]:=Fit{a, (1, x, х^2, xA3), x] 
Out[]= 
27.0076- 0.259127x+ 0.0218615 x? - 0.00429293 х? 
BHH BE, WA 2-9-7 所 示 : ` 


In[]:=c = Plotí %, (x, 0, 7}, DisplayFunction -> Identity]; 
Show[b, с] 
ОшП= 
> Graphics - 


计算 误差 4 : 
In[]:=Suml(alti, 2]] - 27.0076 + 0.259127 *a[li, 11] - 
0.0218615 *a[[i, 1]]^2 + 0.00429293 *а[[і, 1]]^3)^2, (i, 1, 8}1 
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Out[]= 
0.00673161 
ИТАР ИЛГЕН. HK £ Cn ER ЛИНИЯ ЕК. 
例 2.9.9 在 研究 某 单 分 子 化 学 反应 速度 时 ， 得 到 如 表 2-9-2 所 示 的 数据 。 


#202 实验 数据 
i 1 2 3 4 5 6 7 8 
x, 3 6 9 12 15 18 21 24 
y; 57.6 419 31.0 | 22.7 16.6 122 89 65 
L. 


其 中 x 表示 从 实验 开始 算 起 的 时 间 ，y 表示 时 刻 x 反 应 物 的 量 。 
试 根据 上 述 数 据 确定 经 验 公式 y= f(x) 。 
先 观察 散 点 图 ， 如 图 2-9-8 所 示 : 
In[]:=a = {{3, 57.6), (6, 41.9), {9, 31.0), {12, 22.7}, 115, 16.6}, 
118, 12.2}, (21, 8.9), (24, 6.511; 
b = ListPlot[a, PlotStyle -> [PointSize[0.02], RGBColorí0, 0, 1]}] 
Out[]= 
< Graphics - 


由 化 学 反应 速度 的 理论 知道 ，y= у(х) 应 是 指数 函数 ，y=ke™ (km 是 常数 )， 则 
Iny=Ink+mx 是 x 的 线性 函数 ， 因 而 数据 点 (x;,In y,) 的 拟 合 函 数 是 线性 通 数 。 
观察 数据 点 (x; In y) 的 散 点 图 ， 如 图 2-9-9 FR: 


In[]:=a1 = Table[(a[[i, 11], Logla[ti, 211), (i, 1, 8}3; 
bl = ListPlot{a1, PlotStyle -> fPointSizeI0.02], RGBColon[1, 0, 01); 


Ош]= 
- Graphics - 
` 4 
so э * 
aott ` 
А . 

зо - 

20 2.5 . 
-м t м 

u 10 15 20 10 15 20 ` 
2-9-8 29-9 


可 以 看 出 数据 点 大 致 在 一 条 直线 上 ,下面 求 拟 合 函 数 ， 画 出 拟 合 图 形 (如 图 2-9-10 记 示 ) 
并 显示 经 验 公式 。 
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In[]:=n = Fit[a1, (1, x}, x]; 
є1 = Ріо, (x, 0, 25), DisplayFunction -> Identity];Show[b1, c1];E^n 
Ош= 
4.36399- 0.103686 х 
Out[]= 
g4- 36399-0.103686x (经 验 公式 * 》 
最 后 我 们 看 经 验 公式 与 原 数据 点 的 拟 合 情 况 ， 如 图 2-9-11 所 示 。 
In[]:=b = ListPlot[a, PlotStyle -> (PointSize[0.02], RGBColor[0, 0, 11}; 
c = Plot[EA(4.36399 - 0.103686x), {x, 0, 25}]; 


Show[h, с] 
Out[]= 
- Graphics « 
s0 
a| 
50 
2.5 
А 49 
2.5 20 
— 
| +° w M б ; m a Z s 
# 2-9-10 Ё 2-9-11 


练习 1 RAR Sa y)=10xy-5x -472-x4-2y4 的 极 值 ， 画 出 函数 的 图 形 ， 并 指出 图 
形 的 最 高 点 。 
练习 2 фуду) =л? -2ху+2у УЕЛ Җ р = (0, у)10< x<30< y<2) РИЙ X 48 Ж 


Mä. 
练习 3 用 一 块 面积 为 12m 的 木板 制作 一 个 无 盖 的 长 方 体 盒子 ， 求 金子 的 最 大 容积 。 


练习 4 求 函数 f(x,y)=x?+2y? 在 圆周 x*+y? =1 上 的 最 大 值 和 最 小 值 。 


练习 5 求 函 数 f(x,y,z)=x+2y+3z 在 平面 x-y+z=1 与 柱 面 ** +y?: =1 的 交 线 上 的 最 
ХАЁ, 
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x=t-—sinr 


练习 6 求 曲线 1y=1-cost 在 点 全 -1L2w) 处 的 切线 及 法 平面 方程。 


‚4 
= 4ш 一 
2 


练习 7 利用 计算 机 求 出 下 列 曲 面 在 指定 点 的 切 平面 和 法 线 ， 并 画 出 图 形 . 


x z 
《1) BW +° + 可 =3 在 点 PC24-3) 处 ; 
(2) 曲面 z= arctan 守 在 点 May 4, 
x 


练习 8 利用 计算 机 证 明 : ШЙ х+2у-1па+4=0 БШШ х?-лу-8х++5 =0 ЛЕД (2,31) 


处 相 切 〈 即 有 公共 切 平面 ). 


练习 9 对 如 表 2-9-3 所 示 的 数据 做 1 次 ，2 次 ，3 次 和 4 次 多 项 式 氢 合 ， 并 作 图 考察 氢 
合 结果 。 


表 2-9-3 实验 数据 


x 0 0.2 0.52 0.64 0.7 LO 115 0.3 
y 0.3 0.45 0.50 0.38 0.33 0.40 0.39 0.47 


— 136 — 


实验 2-10 ” 重 积分 及 其 应 用 


实验 目的 


. 掌握 用 Mathematica 计算 重 积分 的 方法 。 
会 用 Mathematica 计算 立体 的 体积 、 曲 面 的 面积 等 应 用 问题 。 


实验 的 基本 理论 与 方法 


. 二 重 积分 的 直角 坐标 计算 法 : 


(0) #Юр={(х,у):а< х<Ь, у(х) < у& ya) MU 


N 


узб) 


Про yay = [ав] "U f(x, уду 
D 
(0) Жр=(а,у):с5 y<d,x(y)S x<x,()), Ml 
a) 


J| F уау | y| #9 F, уух 
D 


2. 二 重 积分 的 极 坐 标 计算 法 : 若 D={(7,6):61 S 0 S0,,r(0)S rS r,(0)), Д) 


һ(8) 


кө) f(rcos8,rsin0)rdr 


[ле Ө, гїп gjrdrdg =] 


3. 曲 顶 柱 体 的 体积 ， 以 曲面 z= f(x,y)>0 为 项 ，D 为 底 的 曲 顶 往 体 的 体积 ; 
v = J] fex, yardy 
D 


4 曲面 的 面积 : ЖШШ5 由 z= 了 (x,y) 给 出 ，D 为 曲面 5 在 XOY 面 上 的 投影 区 域 ， 则 曲 


W S 的 面积 
s= |] i+ FG, у) + fP (z, уулу 
D 


5. 平面 薄片 质量 和 重心 坐标 ;平面 薄片 占 ХОУ Т БАО р, MERA py). W 
(1) DME: M = [Í oG, уйе 。 
D 


74 Јес эо 
(2) DREGER: х= 2 ‚ су=® ° 
"= ffp war ”oe уде 
D D 
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(3) DHEUR: x= 工 [fuar， у= [ую 。 
4 D 4 D 
6. бонат. EIES ARXA: 


x=rços0 
y=rsing (0š<8< 2m,— < z +o) a 


直角 坐标 与 柱 面 华 标 的 关系 : 


= 


x=rsingcos8 
ВЧ У АИЭС: {y=rsingsinð {(0<0<2л0<ф<д). 


z=rcosg 


实验 使 用 的 Mathematica $A 


1. ParametricPlot[{xftly[bj,fbabj]， 作 二 维 参数 方程 的 图 形 。 

2. Plot3D[fxy],{x,a,b},{y,c,d}]: 作 z= /(х, у) 的 图 形 。 

3. ParametricPletD[{x[wylyEuvjz[wy]jfuwabjfwedj， 作 三 维 参数 方程 的 图 形 。 
4. Integrate[fIx,y] х,а,Ь)у,у1,у2)1: 计算 累 次 积分 。 


实验 指导 


#2101 Ж Гар эщ. 


In[]:=Integrate[x y,(x,1,2),[y,2-x,Sqrt[2x-xA2])] 
Out[]= 

1 

4 


2 
012102 R|] ау, EPD HB y=2,y= x ЖЩ y= AROMEN. 
ру 


首先 画 出 积分 区 域 D 的 图 形 ， 如 图 2-10-1 所 示 。 
In[]:=a = ParametricPlot[{2, y), (у, 0, 3}, DisplayFunction -> Identity]; 
b = Plot[(y = x, y = 1/х}, (x, 0.1, 3}, PlotRange -> {0,3}, 
AspectRatio -> Automatic, DisplayFunction -> Identity]; 
Show[a, b, PlotRange -> (0, 2.5}, AspectRatio -> Automatic, 
DisplayFunction -> $DisplayFunction] 

Out[]= 

- Graphics - 
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图 2-10-1 


再 求 出 只 的 边界 曲线 的 交点 ; 
In[]:=Selve[{x-2==0,y-x=~=0},{%,y}] 
Out[]= 

(хә 2, уэ 2}} 

IJn[j:=Solvef{x-2==0, x*y-1==0},{x,y}] 

Out[]= 

С) 

In[]:=Solve[{y-x==0, х*у-1==0},{х,у}] 

Out[]= 

[(x>-l,y--1l), {хә1,уә1}} 

最 后 计算 积分 : 

In[]:=Clear[y]; 
Integrate[xA2/yA2,(x,1,2),[y,1/x,x)] 
Out[]= 


9 
ч 
一 、 -y 1 м2 2 2 
例 2.10.3 利用 极 坐标 计算 二 次 积分 | a|” (x? +7 7)gy 。 


画 出 积分 区 域 D={(x, josx<l 1-х< ys J1-x2) ШЧ, ME 2-10-2 所 示 。 


Jp 由 =fl=Sqrt[1-x^2]; 们 =1-X3 
PlotHf1,f2},{xX,-1,2}, AspectRatio -> Automatic, 
AxesLabel->{"x","y"}] 
Out[]= 
- Graphics - 
利用 极 坐标 计算 积分 : 
了 站 :=Integrate[r^3, {t, 0, Pi/2}, (r, 1/(Сов[1] + Sin[tD, 1} 
Out[]= 
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图 2-10-2 图 2-10-3 


012.104 求 由 曲面 z= 友 +272 及 z=6-2x2-y2 所 围 成 的 立体 的 体积 。 


先 画 立体 图 形 ， 如 图 2-10-3 所 示 : 
In[]:=Clear[t1, t2]; 
t1=ParametricPlot3D[(u*Sin[v],u*Cos[vYSqrt[2],uA2),(u, 0, 2},{v, 0, 2Рї}]; 
t2=ParametricPlot3D[{u*Sin[v]/Sqrt[2],u*Cos[v],6-u^2},{u,0,2},{v,0,2Pi}]; 
Show[tl 12] 
Out[]= 
- Graphics3D - 
再 求 出 立体 关于 XOY 面 的 投影 柱 面 : 
In[]:=z1=xA2+2yA2; 
12=6-2х^2-у^2; 
Simplify[z2-z1==0] 
Out[]= 
0==3(-2+х?+у?) 


由 此 结果 可 知 ， 立 体 关于 XOY 坐标 面 的 投影 柱 面 为 : xz2 +y? =2， 投 影 区 域 为 : 


D=[(x, vk? +y? <2} 


最 后 计算 立体 的 体积 : 
In[]:=x=r*Cos[t]; 
y=r*Sin[t]; 
v=Integrate[(z2-z1)*r,{t,0,2Pi},{r,0,Sqrt[2]}] 
Out[]= 
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6л 
P) 2.10.5 求 球 面 z2 + уг + 22 =22 含 在 圆柱 面 x+ у? = 2x 内 的 那 部 分 的 曲面 面积 。 


先 画 出 空间 图 形 ， 如 图 2-10-4 所 示 。 
In[]|:=r1=ParametricPlot3D[: (2Sin[s]Cos[t],2Sin[s]Sin[t],2Cos[s]),(s,0,Pi), 


{,0,2Рї}]; 
r2=ParametricPlot3D[{1+Cos[t],Sin[t],s},{s,-2,2},{t,0,2Pi}]; 
Showl[r1,r2] 

Out[]= 
- Graphics3D - 


НАЗ Е Р ХОУ 面 的 投影 柱 面 为 ，x? + y? =2x。 


再 画 出 立体 在 XOY 面 的 投影 域 ， 如 图 2-10-5 所 示 。 
In[]:=ParametricPlot[{ 1+Cos[t],Sin[t]),(t,0,2Pi), 
AspectRatio->Automatic] 


Out[]= 
- Graphics - 


图 2-10-5 


最 后 计算 曲面 面积 : 
In[]:=Clear[x,y,r,t]; 
z=Sqrt[4-xA2-yA2]; 
ds=Sqrt[1+D[zx]^2+D[zy]^2]; 
x=r Cos[t]; 
y=r Sin[t]; 
Integrate[4ds*r,{t,0,Pi/2},{r,0,2Cos[t]}] 
Out[]= 
4(-4+2л) 


= f$ = 


012.106 RETHA = 2вїп/ 和 /= 4sint 之 闻 的 均 久 薄片 DD 的 重心 。 
B IH D ЕЁ, WE 2-10-6 所 示 。 
In| |l:===ParametricPlot[(2Sin[t]*Cos[t],2Sin[t]*Sintft]), 
{t,0,2Pi}, AspectRatio->Automatic]; 
b=ParametricPlot[(4Sin[t]*Cos[t],4Sin[t]*Sin[t]), 
{t,0,2Pi},AspectRatio->Automatic]; 
Showla,b,AspectRatio->Automatic] 
Out[]= 
- Graphics - 


-2 -1 1 z 


图 2-10-6 


ЗМИ (хо уо), ВАТ О Т у 轴 对 称 ， 所 以 xz =0, 下 面 求 yo: 
In[]:=y0=1/(3Pi)>Integrate[rA2*Sin[t],(t,0,Pi),(r,2Sin[t] 4SinIt]]] 
Out[]= 

7 


3 
例 2.10.7 计算 用 xzaxdydz , ДР Q PE с =0,с= уу ИЕТ y = R 
Q 


闭 区 域 。 
首先 画 出 积分 区 域 的 图 形 ， 如 图 2-10-7 所 示 。 
In[]:=Clear[x,y,u,v,t1,22,t3,;t4]; 
t1=Plot3D[0,[x,-1,1),(y,0,11]; 
t2=Plot3D[y,{x,-1,1},{y,0,1}]; 
t3=ParametricPlot3D{{u,1,v},{u,-1,1},{v,0, 1}; 
t4=ParametricPlot3D[{u,u^2,v},{u,-1,1},{v,0,1H; 
Show[t1,t2,t3,t4,ViewPoint->{2,1,1},AxesLabe]->{ xeyr zH 
Out[]= 
- Graphics3D - 
再 画 出 在 XO7 平面 上 的 投影 区 域 的 图 形 ， 如 图 2-10.8 所 示 。 


= 2 一 


In[]:=Plot[{1,x^2},{x,-2,2}] 
Out[]= 
- Graphics - 


2.5 
2 
1.5 
= тї 1 2 
图 2-10-8 
最 后 求 积分 : 
In[]:=Integrate[x*z,{x,-1,1},{y,x^2,1},{z,0,y}] 
Out[]= 
0 


例 2108 计算 用 9y?z3dxdydz ， 其 中 是 由 曲面 z= 与 平面 y=x,x=1 和 z=0 所 围 成 
o 


的 闭 区 域 。 
首先 画 出 积分 区 域 的 图 形 ， 如 图 2-10-9 所 示 。 
In[]:=a1=Plot3D[x*y,(x,0,1.2),(y,0,1.2)]; 
a2=ParametricPlot3D[(x,x,u),(x,0,1.2),(u,0,1.2)]; 
a3=ParametricPlot3D[(1,y,z),(z,0,1.2),(y,0,1.2)]; 
a4=Plot3D[0,(x,0,1.2),(y,0,1.2)]; 
Show[al,a2,a3,a4,AxesLabel->{"x","y","z"}] 
Out[]= 
- Graphics3D - 
再 画 出 投影 区 域 的 图 形 ， 如 图 2-10-10 所 示 。 
In[]:=a1=Plot[x,(x,-2,2)];b1=ParametricPlot[(1,y),(y,-2,2)]; 
Show[albl] 
Out[]= 


In[]:=Clear[x,y,z]; 
Integrate[x*y^2*z^3,{x,0,1},{y,0,x},{z,0,x у}] 
Out[]= 
1 
364 
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图 2-10-9 2-10-10 


例 2.10.9 R f||z drdydz HEH Q ERAR ax? +y? +z? SR Alx? +y +z? S2Rz (R>0) 
о 


的 公共 部 分 。 
画 出 积分 区 域 的 图 形 ， 如 图 2-10-11 所 示 。 
In[]:=r=1; 
d1=ParametricPlot3D[(r*Sin[u]*Cos[v],r*Sin[u]*Sin[v], 
r*Cos[u]),(v,0,2Pi),(u,0,Pi/2)] 
d2=ParametricPlot3D[{ r*Sin[u]*Cos[v],r*Sin[u]*Sin[v], 
r*Cos[u]+1),(v,0,2Pi),(u,Pi/2,Pi)] 


Show[dl,d2] 
Out[]= 
- Graphics3D- 


图 2-10-11 


用 球面 坐标 计算 积分 : 
In[]:=x=r Sin[t2] Cos[t1];y=r Sin[t2] Sin[t1];z=r Cos[t2]; 
a2=Integrate[z^2*r ^2*Sin[t2],{t1,0,2Pi},{t2,0,Pi/3},{r,0,a}]; 


b2=Integrate[z^2*r^2*Sin[t2],{ t1,0,2Pi},{t2,Pi/3,Pi/2},{ r,0,2a*Cos[t2])]; 
а2+Ь2 
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Out[]= 
59a°x 
480 


实验 内 容 

练习 1 计算 二 次 积分 。 
(CD ав ahi- rr; 
D jij o 1 ш, 

j, Ja vja @+х+у+2)° z 
练习 2 计算 二 重 积分 。 
CD Ја? +y drdy, Ю:1<х<2х<у<2х: 

D 


0) Џо? +удаау, р:д+уйєх. 
р 


练习 3 求 下 面 曲面 所 围 成 立体 的 体积 。 


(1) ze = 0x? + y2 =R°; 
(2) г=х®+у?,у=х?,у=1Ь=0. 


练习 4 求 曲面 z2 = 29 被 平面 z+y=1x=0.y=0 所 截 的 在 第 一 卦 限 内 的 部 分 曲面 的 
ий. 


练习 5 设 平面 薄片 所 占 的 闭 区 域 由 抛物 线 y=x? 及 直线 y=x 所 转 成 ， 面 密度 为 


р(х, у) =х?у, RARR AES, 


练习 6 计算 下 列 三 重 积分 。 
(1) i [JJzdv,Q: 2 +y? с-а а, x+y sz 
2 


(2› руб, Ошх?+у®=1, z=1, z=0, х=0, у=0 Ж; 
D 

(3) ЇЇ у 24, 2 由 xz2+y2+z2=z 转 成 ， 
Б] 


(4) сх? +y dv, Ош4г®=25х? +y), к=5ЩҖ. 
о 
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实验 2-11 ”曲线 积分 与 曲面 积 


实验 目的 
掌握 用 Mathematica 计算 申 线 与 曲 交 积分 的 方法 
实验 的 基本 理论 与 方法 


І. 第 一 类 曲线 积分 的 概念 及 其 计算 方法 : 车 函数 f(x,y) ЕБИНЕ г БИЕ, 工 的 参 
їл POIO, (аяга) Run уй} le Bl БАЛЕ, хону о, M 


[о ув = | уо, уух? Oy да 
L 


2. 第 二 类 曲线 积分 的 概念 及 其 计算 方法 M) 
3. 车 平面 区 域 D 的 面积 为 4， 边 界 曲线 为 x， 则 有 


=liay- y 
А-2} ydr 


4 定理 (Green AR): REA Р(х, у), О(х, у) АК ИЧА EREK D LER, WAR 


frato = j-p» 
成 立 ， 其 中 工 是 区 域 忆 的 边界 ， воени, 方向 到 正 向 。 
5. 平面 曲线 积分 与 路 径 无 关 的 条 件 〈 略 )。 
6. 两 类 曲面 积分 的 概念 及 其 计算 方法 (Hh). 
7. Gauss 公式 (BE). 
8. Stokes AR (88). 


实验 使 用 的 Mathematica 354 


1. Оу}: жэш =з, 


2. Integrate[f,(x,a,b)]: 求 定 积分 。 

3. Integrate[f,{x,a,b},{y,c,d}]: 求 累 次 积分 。 
4. Plot[f,{%,a,bj: 画 一 元 函数 的 图 形 。 
5. ParametricPlot[fx[ty[bj{b а): 画 二 维 参数 图 形 。 
6, Show[f1,(2,(3]: 将 图 形 记 ,万 ,为 组 合 后 重新 输出 。 
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实验 指导 


例 2.1.1 计算 曲线 积分 fods, HH L ALJER r= al сов 的 下 半 部 分 。 
L 


x =a(1+cosr)cosr 


А {л<1<2л). 
y=a(l+cosr)sinr 


©жатвзолы» | 
In[]:=r[t_]:=a*(1+Cos[tD; 
y[t_]:= a*(1+Cos[tD*Sin[t]; 
dr[t_]:=D[r[t],t]; 
Integrate[y[t]*Sqrt[rft]^ 2+dr[t] A2]1,(t,Pi,2Pi)] 
Out[]= 
16 5 


-— ауа 
5 


202 HERRES O gs Др Ж»? + у! 41, у-у B нея 
L 


W 


TRAR A EA REIRE ЭЛ Ж, 
取 a=1 画 出 曲线 的 图 形 ， 如 图 2.11-1 所 示 。 
ш UJ:=f1=ParametricPlot[{x=Cos[t]),y=Sin[t]},{ t,0,Pi/4},AspectRatio-> 
Automatic,PlotStyle->{RGBColor[0,1,1], Thickness{0.001]}]; 
f2=Pioti {x}, (х, 0,2},PlotStyle->{RGBColor[1,0,1], Dashing[{0.05,0.05}]}]; 


f3=Plot[{0},{x, 0,2},PlotStyle->{RGB Color[0,0,1])]; 


Show[f1,f2,f3] 
Out[]= 
- Graphics - 
1 
0-8 
0.6 
0.4 
02) 
02040,6 0.8 1 
2-1-1 
由 图 知 : L=hUL UA， 其 中 的 参数 方程 为 
[аш (05:51) 
y=asinz 4 
六 的 参数 方程 为 
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方 的 参数 方程 为 


计算 在 i 上 的 积分 : 
In{]:=xI[t_ ]:=a*Cos[t]; 
yl[t_]:=a*Sin[t]; 
dx1=D[x1[t],t]; 
dy1=D[y1[t),t]; 
81Н_]:=8аг[4х1^2+4у1^2]; 
П= Integrate[Exp[Sqrt{x1[t]^2+y1[t]^2}]*s1[t],{t,0,Pi/4}H 
Out[]= 


1.09, 
4 


计算 在 已 上 的 积分 ; 
In[E=x2[t_]:= t; 
y2[t_1:=t; 
dx2=D[x2[t],t]; 
dy2=D[y2[t],t]; 
S2[t_]j:=Sqrt[dx2^2+dy2^2]; 
12= Integrate[Exp[Sqrt[x2[t]*2+y2[t]A2]]*s2[t],(t,0,a/Sqrt[2]H 


Out[]= 
уз |. У®. ССА 
У2 а Уа 
计算 在 上 的 积分 : 


In[]:=x3[t_]:=t; 

y3[t_]:=0; 

dx3=D{x3[t],t]; 

dy3=D[y3[t],t]; 

s3[t_]:=Sqrt[dx3A2+dy3A2]; 

I= Pntegrate[Exp[Sqrt[x3[t112+y3[#]A23]*s3[t],(t,0,1)1 
Out[]= 

-1+е 

In[]:=]=I1+D+I 
Out[]= 
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例 2.11.3 计算 曲线 积分 7= fy? -4у% lx+ (2 y+sin у)бу, 其 中 工 为 圆周 z +y?=a?， 
工 
RRES. 
Яа=1, HARI HA, WE 2-1-2 所 示 。 


Inl]:=ParametricPlot[(x=Cos[t],y=Sin[t]),(t, 0,2Pi},PlotStyle->{RGBColor[1,0,1}, 
Thickness[0.0.1]},AspectRatio->Automatic] 


Out[]= 
- Graphies - 
积分 的 计算 方法 有 两 种 : 


a) 直接 计算 。 
Tn[]:=xIt_1:=a*Cos[t]; 
УФ 1:=a*Sin[t]; 
dx=DixiIt];t]; 
dy=DIy[t],t]; 7 
Integrate[(xft]*y[Itj^2-4*y[t]^3)*dx+ 


(x[t|A2#y[t1+Sin[y[tID*dy,(t0,2Pi)] 
Out[]= 


зал 
(2) 利用 Green 公式 。 

In[]:=Clear[x, y, r, t]; 
рЇх_,у_]:=х*у^2 - 4yA3; 
q[x_, y_] := x^2*y + Sin[y]; 
d = (DIqlx, у), x) - Ю[р[х, у], y]) / (x -> r*Cos[t], y -> r*Sin[t]]; 
Integrate[d*r, (t, 0, 2Pi}, (F, 0, а}1 

Out[]= 
Зайл 


2-1-2 


214 利用 曲线 积分 求 性 形 线 [rent osean 所 力图 形 的 面积 。 


у=азїл?{ 


取 a=1， 画 出 曲线 的 图 形 ， 如 图 2-11-3 所 示 。 


In[]:=ParametricePlotI((Cos[t) A3,(Sin[t)).3),(t,0,2Pi), 
AspectRatio->Autormatic] 
Out[]= 


- Graphics - 
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AIARA = fad- ус КИШИН 
L 


Tn[]:=x[t_]:=a*Cos[t1A3; 

y[t_]:= а*5іп[]^3; 

dx=D[x[t],t]; 

ay=DIy[t],t]; 

А := x[t]*dy- y[t!*ax; 

A=Integrate[(1/2)*A[t],{t,0,2Pi}] 
Out[]= 

3a2 
8 图 2-11-3 


例 2115 C Em, ssiaevafz acos? 3 从 :=0 到 
X +y y= asin3 


т=л 的 一 段 。 
判断 曲线 积分 是 否 与 路 径 无 关 ; 
In[]:=pix_,y_]:=(x-yy/(xA2+yA2); 
q[x_,y_J:=(x+y)/(xA2+yA2); 
Dlalx,y),x] 
Out[]= 
2х{(х+у) 1 
(х2+ y2) 2 t +y? 
In[]:=D[p[x,y]x] 
Out[]= 
2х(х+у) 1 
ову? ` xQ +y2 
Жр ={(х, ух #0Ну> 0], Wp 是 单 连通 域 , Hp p= tQ = 227 以 及 它们 的 


x +y 


一 阶 偏 导 数 在 D 内 连续 ， 850.3, 因此 ， 积 分 在 D 内 与 路 径 无 关 ， 考 虑 到 被 各 函数 的 特 
点 ,我 们 取 上 半圆 周 


саш t:0—x 
y=asmt 
为 新 的 积分 路 径 ， 计 算 积分 : 
In[]:=x[t_]:=a*Cos[t]; 

ylt_]:=a*Sin[t]; 

dx=D[x[t],t]; 

dy=D{y[t),t}; 

Integrate[((x[t]-y[t) *dx+(x[t]+ УП #ду)/(х[^2+у[1^2ДЬ0,Р1 
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Out[]= 
л 


例 2.11.6 利用 曲面 积分 计算 旋转 抛物 面 z=x2?+y2(0<z<3) 的 面积 。 


画 出 曲面 及 其 在 ХОУ 面 的 投影 区 域 ， 如 图 2-11-4 所 示 。 
In[]:=Clear[t] 
g1 = ParametricPlot3D[{u*Cos[t], u*Sin[t], u^2}, (t, 0, 2Pi}, (u, 0, 2}]; 
g2 = Plot3D[3, (x, -2, 2), (y, -2, 2)]; 
g3 = ParametricPlot3D[(Sqrt[3]*Cos[t], Sqrt[3]*Sin[t], 0), (t, 0, 2Pi)]; 
Show[gl, g2, g3, ViewPoint -> (3.641, -3.012, 1.333}]; 
ParametricPlot[(Sqrt[3]*Cos[t], Sqrt[3]*Sin[t]), (t, 0, 2Pi}, 
AspectRatio -> Automatic] 


图 2-11-4 
根据 被 积 函数 和 积分 区 域 的 特点 ， 采 用 极 坐标 计算 曲面 面积 : 

In[]:=Clear[r, x, y, z, t, s]; 

z[x_,y_] := xA2 + y^2; 

s = Sqrt[1 + D[z[x, y], х]^2 + D[z[x, y], у]^2] /. {x -> r*Cos[t], 

y -> r*Sin[t]); 

Integrate[s*r, (t, 0, 2Pi), (r, 0, Sqrt[3]}] 

Out[]= 


例 2.11.7 HAARA [| yzas ,其 中 5 是 平面 z= y>+3 被 圆柱 面 z2 + у? =1 截 得 的 部 分 。 
5 
画 出 曲面 及 其 在 XOY 面 的 投影 区 域 ， 如 图 2-11-5 所 示 。 


= г 


In[]:=Clear[t1,t2,t3]; 
tl=ParametricPlot3D[{Cos[t],Sin[t],u},{t,0,2Pi},{u,2,4}; 
t2= Plot3D[y+3,(x,-3/2,3/2),( y,-3/2,3/2}]; 
t3= ParametricPlot3D[(Cos[t],Sin[t],0),(t,0,2Pi)]; 
Showl[t1,t2,t3,ViewPoint->1(4.276,-2.012,1.333)]; 
ParametricPlot [{Cos[t],Sin[t]},{t,0,2Pi}, 

AspectRatio->Automatic] 


©) 
图 2-11-5 
根据 积分 区 域 的 形状 ， 采 用 极 坐 标 计算 积分 : 
In[]:=z[x_,y_] :=y +3; 
dzx = D[z[x, y], x]; 
dzy = D[z[x, у], у]; 
sxy = y z[x, у] Sqrt[1 + dzx^2 + dzy^2] /. {x -> r*Cos[t], y -> r*Sin[t]); 
Integrate[sxy*r, (t, 0, 2Pi), (r, 0, 1}] 
Out[]= 


л 
2/2 
例 2.11.8 利用 Gauss 公式 计算 曲面 积分 
[|a yaa + G y— 22)020x + Олу + y2 дахау 
s 


其 中 8 HEERE х2 +у?<а?,0<< Ja? -x2 у? 的 表面 外 侧 。 


In[]:=Clear[a];p[x_, y_, 2_] := x*zA2; 
q[x_, y_,z_] := xA2*y -2^3; 
r[x_,y_,z_] := 2x*y + yA2*z; 


— y= 


арх = Dip[x, y, z], х]; 
day = 9іх, у, 2 y]; 
drz = О[гіх, y, z], z]; 
f = dpx + dgy + drz 
1. [x -> t*Sin[u]*Cos[v], y -> t*Sin[u]*Sin[v], z -> t*Cos[u]); 
Integrate[f*tA2*Sin[u], {v, 0, 2Pi}, (а, 0, Pi/2}, (t, 0, а}] 
Out[]= 
2a5r 
БЕШ 


实验 内 容 
练习 1 计算 曲线 积分 T= 儿 (x+y?)ds ， 其 中 工 是 图 心 在 (R0) ， 灶 径 为 尺 的 上 半圆 周 。 
练习 2 ЕРЕ 
练习 3 ПАВ Олу ketat yd, 并 验证 Green 公式 的 正确 性 ， 其 中 工 是 


ШИЙ у= z2 Ж у? =x 所 围 成 区 域 的 正 向 边界 线 。 
练习 4 йаш ае, зш? +y таз: = Олса вна 
$ 


部 。 
练习 5 计算 曲面 积分 科 (x-ydxdy+(y-z)xdydz, 其 中 5 为 柱 面 x?+y?=1 及 平面 
5 


z=0z=3 所 围 成 的 空间 闭 区 域 的 整个 边界 曲面 的 外 侧 。 
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实验 2-12 “无穷 级 数 


实验 目的 
1. 掌握 用 Mathematica 判定 常数 项 级 数 的 化 散 性 的 方法 。 


2 掌握 用 Mathematica 将 函数 展开 为 宕 级 数 以 及 千 级 数 求 和 的 方法 。 
3. 掌握 用 Mathematica 将 函数 展开 为 Fourier 级 数 的 方法 。 


实验 的 基本 理论 与 方法 


1. 常数 项 级 数 的 审 伍 法 : 
O 级 数 收敛 的 必要 条 件 ， 者 级 数 Ya, 收 化 ， 则 必 有 limu, =0 。 


(2) 比较 审 敛 法 的 极限 形式 : EBENAK Su, Žv, ж lim np (O<p<+), WJ 


n=l 


BA Su, Sv, 同时 收敛 或 发 艇 。 
n=l n=l 


(D RRMA: BEDO Èu, Ж иш р, осрин ий, 当 p > 1 BF 
п=1 "з= Hp 
级 数 发 散 。 
(4) 条件 收敛 与 绝对 收 生 : эник Š u, dk саў, 必 收敛 )， 则 称 级 数 绝对 收 


ga BAR Žiu, 1 发 散 ， mama, К, ИЖА ТЕК. 


2. RAREN 的 惟一 性 : Ж уо) ван Вж 区 间 内 能 展 为 寡 级 数 ， 则 必 为 
Taylor 级 数 


FOSSO атон аа ++ SO ap aao)" + 


3. 函数 展开 为 Fourier 级 数 : 设 函 数 f(x) 以 2r 为 周期 ， 满 足 Dirichlet 收敛 定理 的 条 件 ， 
则 f(x) 在 连续 点 处 可 以 展开 为 Fourier 级 数 


лод ўа, Cos nx +b, віп пх) 


其 中 а, =Á fix) cos nxdx b= F(x) sin nxdx 
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实验 使 用 的 Mathematica 函数 


1. Series[f[xj{x,x0,n}]: 将 feo 1 охо) ЖЕЛЕ E n 阶 的 泰勒 公式 。 


2. Normal[%]: 去 掉 展 天 式 中 的 余 项 。 
3. Sum[A[n],[n,1,Infinity]1: 判断 级 数 的 收敛 性 并 求 级 数 的 和 。 


实验 指导 


例 2.12.1 НУ z 1 的 收 敏 性 。 


п=1 
Infj:=u[n_] := (-1)^(n - Dms 
Sum[u[n], (n, 1, Infinity}] 
Out[]= 
10912] 
即 级 数 收敛 于 mm2。 


例 2.12.2 讨论 级 数 > 
的 
Tn[]:=u[n_] := 1/(n*(n + 1))^(1/2); 
Sum[ufm], (n, 1, Infinity}] 
Out[]= 
Sum: :div : Sum does not converge. 
输出 信息 提示 级 数 发 散 。 
例 2.12.3 判断 级 数 Y OD ET, BARAER RH? 
а=2 п 


In[]:=uín ]:= 1Лод{п]; 
Sum[u[n], (n, 2, Infinity)] 
Out[]: = 
Sum::div : Sum does not converge. 
InD:=Clearfu] 
uin] :=(-1)^n/Log[n]; 
NSumíu[n], (n, 2, Infinity} 
Out[]= 
0.9243 
于 是 级 数 条 件 收敛 。 


例 2.12.4 TE 5 ср" 三 -是 否 收 全 ia sanhi u k S. 
n=l u 
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т: := 2AnA2/nt; 
SumÜ[uín], (n, 1, Infinity}] 
Out(]= 
Sum::div : Sum does not converge. 
ЫХ ПА ЖОШ. ВАРИВА ETNA: 
InI]:=Clear[u]; 
щп_]:= (-12 ^(п-1) *2^n^2/nt; 
Sum[ufn], (n, 1, Infinity} 
Out[]: = 
Sum::div : Sum does not converge. 


故 级 数 发 散 。 


例 2.12.5 жан Ў 27 сата, 
п 


а12"- 


先 求 收敛 区 间 ， 
щ[[:=и[п_}:=х^п/2^п/п; 


г = 1/Limit[u[n + 1]/и[п] /. x -> 1, n -> Infinity] 


ош 
2 
99 х= -2 处 是 否 收 敏 : 
їю[]:=$ит[и[п] /. x -> -2, (n, 1, Infinity} 
Out[]= 
-10912] 
考察 x+=2 处 是 否 收敛 : 
In[]:=Sum[u[n] / x -> 2, (n, 1, Infinity}} 
Out[]= 
Sum::div : Sum does not converge. 
КАПЕК 5-2,2). ШЖК ПЕ. 
Tn[];:=Sumí[u[n], (n, 1, Infinity} 
Out[]= 


x 
-togļ[1 - 3 


故 塞 级 数 的 和 函数 为 -ma 为 。 


#112126 求 下 列 赛 级 数 的 和 函数 。 


{21-1 
D $x 
БЫ 
In[]:=Sum[(2n ~ 1/2An*xA(2n - 2), (n, 1, Infinity}] 
Out[]= 
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22.4 
x2 (-2 + х2? 


(2) Yag-D", 


nal 
Tnf]:=Sum[n*(x-1)“n, (n, 1, Infinity} 
Out[]= 
-l+x 
{-2+х)2 


例 2.12.7 (1) 将 In(x+yx? +1) Ж x ШЖ; 


D 将 一 EFA- 的 宕 级 数 。 


х? +3х+2 
In[]:=Normal[lSeries[Log[lx+Sqrt[x^2+1]],{x,0,5}]] 
Outií)= 


x Зх 
х-— + 
6 40 
In{}:=Normal[Series[1/(x^2+3x+2),{x,1,3}]] 
Out[]= 
3 
1 . {-1+х)+ 19 Cix? 65 (-1+ х) 
6 36 216 1296 


01 2.128 Hnt) EFA x ВО, ЭРИ n2 КАЧИ. 


In[]:=Series[Log[1+x],{x,0,5}]; 
Normall %] 
Our[]= 


我 们 用 此 震级 数 来 计算 征 2 的 近似 值 : 
In[]:=Forlt=5,i<=30,i+=5, 
a=N[Normal[Series[Log[1+x],íx,0,)]]/.x->1]; 
Printi," “al 


Out[]= 
5 0.783333 
10 0.645635 
15 0.725372 
20 0.668771 
25 0.712747 
30 0.676758 


为 了 便于 比较 ， 下 面 用 级 数 
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1+ 2, 27 


In Ci<x<D) 
1 


Ž Z mq +o) - №0 )=2 
-х mo 


2т+1 


х= ЖЯ ш2 Ей: 


TIn[]:=Series[Log[(1+x)/(1-x)],1x,0,10)1; 
Normal[%] 
Out[]= 
2х? 2? 2х! 2х9 
5 7 9 
In[]:=Forfi=5,i<=30,i+=5, 
b=NINormal[Series[Log[(1+x)/(1-x)],(x,0.i)11/-x->1/3,10]; 
Printti," "Ы 


2х+ 


N[Log[2],10] 
Out[]= 
5 0.693004 
10 0.693146 
15 0.693147 
20 0.693147 
25 0.693147 
30 0.693147 


下 面 画 出 两 种 方法 的 散 点 图 如 图 2-12-1 R, ЕДА РЕ LARRIAREN 
程度 。 


In[]:=a = Plot[Log[2] // N, (x, 2, 30), PlotStyle -> RGB Color[0, 1, 01]; 
b = ListPlot[ Table[Normal[Series[Log[1 + x], (x, 0, i)]] /. x -> 1, (i, 2,301, 
PiotStyle -> [RGBColer(1, 0, 0), PointSize[0.02]}]; 
с = ListPlot[ Table[Normal[Series[Log[(1 + x)/(1 - x)), (x, 0,i)1]/. x -> 1⁄3, 
{i, 2, 30}], PlotStyle -> {RGB Color[0, 0, 1], PointSize[0.02]11; 
Show[a, b, c] 
Out[]= 
- Graphics - 


о о о о с 
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TUANE h ya Wik kak Е e dE2 НЕЙ. KEARAH Fr phun ЕЛЕ 5 f 
AMEA ШОШ. 
512429 H fo) -f> TESEO 展开 为 Fourier 级 数 。 
0, 0<лхл<л 


In[]:=a0=1/Pi*Integrate[x,(x,-Pi,01]; 
a[n ]=1/Pi*Integrate[x*Cos[n*x],(x,-Pi,0)]; 
b[n_]=1/Pi*Integrate[x*Sin[n*x],(x,-Pi,0)1; 
g[x. ]:=a0/2+Sum[a[n]*Cos[n*x]+b[n]*Sin[n*x],(n,1,5)]; 
gix] 

Out[]= 


2Cos[x] 2С05[3х] 2005[5х] 
А ` 
元 9л r ` 


л 
-+ 
4 
: l. l 1 1 
5: -二 Sin[2 二 - = 81 — 51 
ir [>] 5 in{ x) + ç 51103 х] 15014) + — Sin(5x] 


0] 2.1210 将 函数 Am) = x+1(0<x<) 分 别 展开 为 正弦 级 数 和 余弦 级 数 。 
展开 为 正弦 级 数 : 
In[]:=Clear[x,f,g,a,b]; 
flx_]:=x+1; 
bin_]:=2/Pi*Integrate[f[x]*Sin[n*x],(x,0,Pi)]; 
g[x ]:=Sum[b[n]*Sin[n*x],(n,1,5)1; 


Simplify[g[x]] 
ОшП:= 
2 (2+7) Sin[x] _sinf2x] + 
x 
202+) Sin[3x] 1 2 (2 + 2) Sint5x) 


-7 Sin[4x] + 


展开 为 余弦 级 数 : 
In[]:=a0=2/Pi*Integrate[fix],(x.0,Pi)l; 
a[n_]:=2/Pi*Integrate[f[x]#Cos[n*x],(x,0,Pi)); 
h[x_]:=a0/2+Sum[a[n]*Cos[n*%x],(n,1,5)]; 


Simplify[h[x]] 
Out[]= 

1+ m 4 Cos [x] _ 4 Cos [3 x) 4 Cos [5 х] 

2 л 9л 25л 
例 2.12.11 о) 是 周期 为 4 的 周期 函数 ， 在 [-2,2] 上 的 表达 式 为 
0, -2<х<0 
rm- 从 осу (Kk#0) 
将 f G) 展开 为 Fourier 级 数 。 


In[]:=a0=(1/2)*Integratefk,{x,0,2}]; 
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afn ]:=(1/2)*Integrate[k*Cos[(n*Pi*x)/2],(x,0,2)]; 
Ып J:=(1/2)*Integrate[k*Sin[(n*Pi*x)/2],[x,0,2)J; 
fx=a0/2+Sum[a[n]*Cos[(n*Pi*x)/2]+b[n]*Sin[(n*Pi*x)/2],(n,1,5]1 
ОшП= 
k 2к51п(2%) 2k8sin|2Z#] 2 ksin[ Z<] 
+ + 


+ 


2 л Зл 5л 


实验 内 容 


练习 1 用 Sumr[ ] 函 数 判断 下 列 级 数 的 收敛 性 。 
© ŽL: о) Ў, 3) È snz, 


z 
пе!" тпл а=] 


练习 2 将 下 列 函 数 展 开 成 x HFA. 
(1) Ina+x) (а>0) ғ (2) až; 


x 


Уї+х? 


(3) ып?х; (4) 


练习 3 将 下 列 函 数 展 开 成 短 级 数 。 
(1) lgx 展 开 成 (x-]) h ЖЖ; 


(2) соох RFR (+5) Ж. 
练习 4 将 下 列 以 2r 为 周期 的 函数 у(х) 展开 为 Fourier 级 数 : 


(1) }бд=3х®+1,-т<х<л; (2) ло caseo, 
1, О<х<я 


练习 5 将 函数 f(x) = (ок хп у АЕ ийй. 


2x+1, -3<х<0 


1 0<х<3 展开 为 Fourier 级 数 。 


练习 6 OEI 
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实验 2-13 ”微分 方程 


实验 目的 
S Mathematica 求 微分 方程 的 解 的 方法 。 
实验 的 基本 理论 与 方法 
齐 次 方程 的 求解 法 。 
一 阶 线性 微分 方程 的 求解 法 。 


可 降 阶 的 高 阶 微分 方程 的 求解 法 。 
二 阶 线性 微分 方程 的 求解 法 。 


х5 ә 


实验 使 用 的 Mathematica 函数 


1.DSolve[ 微 分 方程 ,y[xlx]， 求 解 徽 分 方程 。 
2. DSolve[{ 微 分 方程 , 初 值 条 件 },y[x],x]:， 求 微分 方程 的 初 值 解 。 


实验 指导 


例 2.13.1 求解 微分 方程 xy-ylny=0, 
In[]:=DSolve[x y'[x]-y[x] Log[y[x]]==0,y[x],x] 
ОшП= 

{{Y[X] > € 


例 2.13.2 求解 微分 方程 xdy+2yde=0, j|... =l. 


кеу, 


In[]:=DSolve[{x у'[х]+2у[х]==0,у[2]==1},у[х],х] 
Out[]= 


[указ S) 


5 
例 2133 REBANE y=(x+D? 。 


щ[):=О$о]уе[у'[х]-2у/(х+1)==(х+1)^(5/2),у[х],х] 
Out[]= 
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(ура = Ух °з = 2E) с-гу) 


Ф1 2.134 求解 微分 方程 y "=e? cosx o 


In[]:=DSolve[y""[x]==E^(2x)-Cos[x],y[x],x] 
Out[]= 
2х 


[урэ = ас +0121: 220131 + Sinpg]) 


012135 求解 微分 方程 уу—у?=0. 


In[]:=DSolve[y[x] y''[x]-y'[x]2==0,y[<x],x] 
Out[]= 
((y[x] > e 


例 2.13.6 RERAN y -2y +5 у =0。 


In[]:=DSolve[y'""'"[x]-2y''"[x]+5y""Ix] ==0,y[x],x] 
Out[]= 


CIH Сг» )) 


(уга э C[3] + хС[4] + £ e*C(1] Cos[2x] - 


£ А 
= ХС[2] Cos[2 x} + Е exC[1] Sin[2x] + — 5 C12] Sint2x)}} 


012137 求解 微分 方程 y'-5yt6y =” 


In[]:=DSolve[y"''[x]-5y'[x]+-6y[x] == E^(2x),y[x],x] 
Out[]= 


(ус э е®®(-1-ху- + «д, C + e3xcr2]}} 


例 2.13.8 求解 微分 方程 y"+y =xc0s 2x o 
In[]|:=DSolve[y''[x]+y[x] ==x Cos[2x],y[x],x]; 
Simplify[%] 
Out[]= 


[y pa) > CI21 cos{x) - + xCos[2x] - C[1] Sin[x] + 5 Sin[2x]}} 


例 2.13.9 求 微 分 方程 y"-y=4xe* 满 足 y(0) =0， y (0) =1 的 特 解 。 


In[]:=DSolve[{y"[x]-y[x] ==4x EAx,y[0] ==0,у'[0] ==1},у[х],х] 
Out[]= 


[Iya > 5 ex(-2+2e2x- 2e2xx+ 2е?*›ёу \) 
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例 2.13,10 求解 微分 方程 х?у'—3лучду=х+х”1пх. 


练习 


(2) 


(3) 


(4) 
(5) 


(6) 


90) 


Simplify[%] 
Out[]= 


7 > 2х (6+ 6х1) + 6xC[2] Logix] +xLog[ 3)}} 


求解 下 列 微分 方程 。 


(1) ylnxty=ax(dnxtl): 


уйх 
ЯУ 
dx 


+(x? -4x)dy =0; 


+y- =0; 


У"+у'-2у'= җе* +4); 


У'+2у'+5у =sin 2x; 


у'+2у+у= cosx, Ж Ш y=0B, у=0, у= НЕ; 


ху 


ху —2у = x? In x+3x o 


In[]:=DSolvefx*2 у"'[х]-Эх у'[х]+4у[х]==х+х^2 Log[x],y[x],x] 


实验 内 容 
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第 三 篇 高 等 数学 验证 与 演示 实验 
实验 3-1 ”由 图 形 分 析 函 数 性 质 


实验 目的 


通过 几何 图 形 观 察 、 分 析 函 数 的 各 种 性 质 。 


实验 指导 
例 3-1-1 设 f(x)=2*，g(x)=sinx， 观 察 复合 函数 f[g(2)],8[ 了 (2)] 的 图 形 。 
输入 程序 : 
In[]:=Clear[x, f, g]; 
{{х_]:=2^х; 


glx_1 := Sin[x]; 

Piot[ffg[x]],{x, -3, 3}, PlotStyle -> RGBColor[1 0, 01, 
AxesLabel -> "НТе(х)]"1; 

Plot[g[f[x]l,(x, -3, 3), PlotStyle -> RGBColor[0, 0, 1], 
AxesLabel -> "g[f(x)]"} 


Out]= 
- Graphics - 
输出 图 形 如 图 3-1-1 所 示 。 
45001 БЕ 


3-1-1 
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例 3.1.2 MERER уа" Маса = ^а =5,а = HUB, 观察 指数 函数 的 性 质 。 
е 


输入 程序 : 
In[}:=Plot[{Exp[x], 1/Ехр[х], 5^х, (1/S)Ax), (x, -1, 1}, ТИГЕ 
АѕресіЌайо -> Automatic, 
AxesLabel -> {"x", "a=1/5,1/e,e,5"}, 
PlotStyle -> (IRGBColor[1, 0, 0], 
ЕСВСоіюг[0, 0, 11}] 
Out|]= 
- Graphics - 
输出 图 形 如 图 3-1-2 所 示 。 


бта? 


-1-3 ”描绘 正 态 Ë -Le ж ， 
#3. 描绘 正 态 分 布 密度 函数 gm) Z° (其 中 a,b 


为 常数 ) 在 下 列 情况 时 的 图 形 ， 图 3-1-2 
(1) a=0,b=1, 1.5, 2, 2.5; 
(2) b=la=0; 1; 2, 3. 
观察 a,b 的 变化 对 图 形 的 影响 。 
(D 输入 程序 : 
In[]:=Clear[a, b]; 
flx_] := UPIEN -x - а)^2/(2Ь^2)); 
а=0; 
Do[Plot[fix], (x, -5, 5}, PlotRange -> (0, 0.5), PlotLabel -> {"b", b}, 
{Ь, 1, 2.5, 0.5}] 
Out[]= 
- Graphics - 
输出 图 形 如 图 3-1-3 所 示 。 
根据 图 形 可 得 结论 ， 随 着 5 的 增 大 ， 函 数 图 形 的 最 高 点 在 逐渐 降低 。 
(2) 输入 程序 : 
In[]:=Clear[a, bJ; 
їїх_]:= ((2PiDA(1/2)8b)*EAC-(x - a)^2/(2b^2)); 
b=1; 
Do[Plot[flx], (x, -6, 6}, PlotRange -> (0, 0.5}, 
PlotLabel -> {"a", а}], (a, 0, 3}] 


5 


Outl]= 
- Graphics - 
输出 图 形 如 图 3-1-4 所 示 。 
根据 图 形 可 得 结论 ， 随 着 a 的 增 大 ， 函 数 的 图 形 在 向 右 移动 。 
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图 3-1-3 


E 3-1-4 


例 3-1-4 WME fa =4x2-5x2 х2 BJ ABRE. ПД ЕЕ /' (л), О) 符号 的 关系 。 


(1) JER RAE. 
In[]:=Clear[f,t,a,b]; 
flx_] := 2x^3 - 5x^2 + x - 2; 
t= Solvelf'[x] = 0, x] // N 
xl = x/. t[[1, 1; 
x2 = x /. t[[2, 111; 
Out[]= 
{{хә 0.10685), {хә 1.55982)) 
《2) АО, Жр ДЕ &--Й ЭЧАК. WE 3-1-5 (a) 所 


In|]:=a = Ріо НЕТ], ffx]}, (x, -2, 2},PlotStyle -> 
{RGBColor{1, 0, 0], Dashing[(0.03, 0.02)])1; 
b = Graphics[{Line[{{x1, -5}, (х1, 0), {x2, 0}, {x2, -5)}1}1; 
Show[a, b] 
Out[]= 
- Graphics - 


图 3-1-5 


D 求 二 阶 导数 为 零 的 点 。 
In[]:=s = Solve[f'"Ix] == 0, x] // N; 
x3 =x/. s[[1, II 
flx3] 
Out[]= 
(хэ 0.833333)) 
-3.48148 
(4) 观察 二 阶 导 函数 与 函数 的 关系 ， 其 中 虚线 是 二 阶 时 函数 的 图 形 ， 如 图 3-1-5 Cb) 所 


InÍ]:=e = Plot[{ffx], Т'[х]}, (x, -2, 2),PlotStyle -> (RGBColor[1, 0, 01, 
Dashing[{0.03, 0.0211; 
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9 = Graphics[(Line[((x3, -5}, {x3, OHH; 
Showfe, d] 
Out[]= 
- Graphics - 
据 此 可 以 得 出 ， fw) 在 区 闻 (—%,0.10685],[1.55982,+) 是 单调 增加 的 ， 在 区 间 
[0.10685,1.53982] 是 单调 减 小 的 ; fO 的 图 形 在 区 闻 Cs。0.833333] ДЕЧ, Ж{Х 
[0.833333,+) 是 目的 ，(0.833333,-3.48148) ДЕ} д. 


实验 内 容 
练习 1 画 出 下 列 函 数 的 图 形 并 与 ?= sinx 的 图 形 进行 比较 ,观察 函数 y= А, + Азїп(ах +b) 
中 常数 4，a，5 的 取 值 对 函数 图 形 的 影响 . 
ар у= вал: (D у=зщх+=)+ 
(3) y=3sinx; (4) y=sin2x; 


‹5› y=3snQx+ 1л) ° 


练习 2 将 函数 ?=x， у=, уел НВ ЕНТ, а ра" 
作 图 的 思想 。 

练习 3 任意 取 a (Ge>0,az 了 D 值 ， 画 出 y=ax 的 图 形 ， 并 观察 a 的 取 值 以 及 z 的 取 值 范围 
对 函数 单调 性 的 影响 。 

练习 4 任意 取 a (ae>0,az*1l) 值 , 画 出 函数 = ar 的 图 形 ,分 别 观察 当 z -> = ,和 x 


时 函数 值 的 变化 趋势 。 
练习 5 画 出 ?= arctanx 的 图 形 ， 观 察 函 数 的 有 界 性 ， 单 调 性 。 


练习 6 y=, »=-5, 》=arctanx 的 图 形 画 在 一 张 图 上 ， 观 察 函 数 的 有 界 性 并 进 一 


步 得 出 当 ye (Coto) 时 函数 的 上 界 和 下 界 。 
练习 7 画 出 函数 y=arctanx 的 图 形 ,分 别 观察 当 x-》+eo ,和 x әсә 时 函数 值 的 变化 趋 
#. 
练习 8 任意 选择 函数 SO B Hi у(х), УО), РО) 的 图 形 ,通过 图 形 观察 о) 的 单调 性 ， 
ш Б Ро) "Oy AS NX E. 
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实验 3-2 ”函数 与 极限 的 概念 


实验 目的 
1. 通过 几何 与 数值 两 个 方面 观察 理解 极限 的 概念 。 
2， 通 过 几何 与 数值 两 个 方面 观察 理解 无 穷 大 的 概念 以 及 无 穷 大 量 与 无 界 函数 的 区 别 。 
3， 通 过 几何 与 数值 两 个 方面 观察 理解 无 穷 小 的 阶 及 其 比较 。 


实验 指导 


例 3-2-1 观察 数列 x, = CD 与 其 极限 值 的 接近 程度 。 


n 


(1) 我 们 已 经 知道 lmx,=0, ТИВ КАЖ: х 与 常数 4= 0 无 限 接近 的 情况 。 


]n[]:=n=15;A=0; 
Forli=1,i<=n,i++, 
xi=(-1)AiA//N; ri=Abs[xi-AV/N; 


Print[i," nxi," nri] 
1 
Out[]= 

i xi ri 

1 -L 1. 

2 0.5 0.5 

3 -0.333333 0.333333 

4 0.25 0.25 

5 -0.2 0.2 

6 0.166667 0.166667 

7 -0.142857 0.142857 

8 0.125 0.125 

9 -0.111111 0.111111 

10 0.1 0.1 

11 -0.0909091 0.0909091 

12 0.0833333 0.0833333 

13 -0.0769231 0.0769231 

14 0.0714286 0.0714286 

15 -0.0666667 0.0666667 
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由 以 上 输出 结果 可 见 ， 随 着 n 的 增 大 ，x, 越 来 越 接近 于 0， 六 =|х, - 村越 来 越 接 近 0. 
D 下 面 再 从 几何 上 观察 ， 随 着 的 增 大 x, 与 常数 0 无限 接近 的 情况 。 


In{]:=Clear[n, х]; 
A=0;e=104-1// N; 
nl = Table[(-D^nm, In, 1, 301] // N; 
a = ListPlot[n1, PlotStyle -> (RGBColorí1, 0, 0], PointSize[0.02])]; 
b= PIot[{A - e, А + е}, {x, 0, 30}, DisplayFunction -> Identity]; 
Show[a, b, AxesLabel -> {"", {"e=", e}}] 


Out[]= 
- Graphics - 
输出 图 形 如 图 3-2-1 所 示 。 
> {ese 0-1) 
о.4 . 
0.4 
oel *, oaf t 
+0 + у —. 
S „жле, чө tgs + Q so gawe ч» *®* o 
-0.2 А -0.2 + 
. ` 
-0.4 
(a) (b) 
图 3-2-1 


例 3-2-2 观察 当 x -1 时 ， 函 数 》= Vz 与 其 极限 的 接近 程度 。 


(12 先 求 出 数列 的 极限 。 
In[]:=Limit[xA(1/2),x->1] 
ОшП= 
1 
(2) 再 从 图 形 上 进行 观察 : 
In[]:=Clear[f,x,g]; 
e=0.1;x0=1;A=1; 
flx_]:=xA(1/2); 
g0=Plotifix],{x,x0-1,x0+1},PlotStyle->{RGBColor{1,0,0]}]; 
g=Plot[{A-e,A,Ate),{x,x0-1,x0+1},PlotStyle->{(RGEColor[0,0,1], 
RGBColor[0,1,0]),DisplayFunction->Identity]; 
rx1=FindRoot[f[x]==A-e,(x.0,2)]; 
x1=x/.rx1; 
rx2=FindRoot[f[x]==A+e,(x,0,2)1; 
x2=x/.rx2; 
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а1=х0-х1;а2=х2-х0; 

а= Ша1<а2,а1,а2; 

gl=ParametricPlot[[x=x0-a,y=t),(t,A-e,A+e), 
DisplayFonction->Identity]; 

g2=ParametricPlotí[x=x0+a,y=t),(t,A-e,A+e), 
DisplayFunction->Identity]; 

Show[g0.g,g1,g2) 

Out[]= 
- Graphics - 
输出 图 形 如 图 3-2-2 所 示 。 


1.4 


图 3-2-2 
(3) 最 后 从 数值 上 进行 观察 。 
Tn[]:=n=10; 
fIx_E=xAG⁄2 
For[i=1,i<=n-1,i++, 
x1=N[0.9+0.1*i/n,51;x2=N[1.1-0.1*i/n,5]; 
了 rint[ "xl1= xe по), ", 
"х2="х2/," “fx2)= "人 x2]]] 


ОшП= 
) -0.953939 x2-1.09 £(x2)=1.04403 
) =0.959166 х2-1.08 #(х2) =1.03923 

Х1=0.93 (х1) =0.964365 м2-1.07 f(x2) =1.03441 
)=0.969536 х2-1.06 Ё(х2) =1.02956 
)=0.974679 х2-1.05 #(х2) =1.0247 
х1=0.96 Е(х1)=0.979796 х2-1.04 Е(х2) =1.0198 
х1=0.97 (х1) =0.984886 х2-1.03 f(x2)=1.01489 
х1=0.98 #(х1)=0.989949 х2-1.02 flx2)-1.00995 
х1-0.99 f(x1)-0.994987 х2-1.01 f(x2)=1.00499 

由 输出 结果 可 以 看 到 ，x 越 接近 x =1, f0 与 4=1 越 接近 。 


例 3-2-3 从 数值 上 观察 极限 m 1-5 ， 理 解 无 穷 大 的 概念。 
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I]n[]:=Clear[f]; 
n=20; 
flx_J:=Abs[1/x]; 
For[i=10,i<=n-1,i++, 
x1=N[10A(-i),5];x2=N[-10A(-i),51; 
Реті "хі=",х1," "хр" ", 
“"Х2=",х2," "," х2)="[х2]] 


ОшП= 
х1=1.х10710 р(х1)=1.х109 x2 
х1-1.х107 f(x1)=l.x10} х2=-1.х1011 р(хду—-1.х10% 
xl-1.x102 f(xl)-1.x 10? >x2--1.x1012 #(х2)-1. x102 
х1=1.х1078 f(xl)=1.x10? x2--1,x10 f(x2)-1. x10” 


1.х1019 f(x2)=1. х1010 
1 
1 
1 
x181.<10 2 £0x1)=1.x10 x2--1.x1014 #(х2)=1. x10 
1 
1 
1 
1 


x1=1.x 1075 f(xlj=1.x10 х2--1.х1075 flx2)=1.x1015 
Ж1-1.х10716 ffxl)-1.x1016 x2--1.x10-16 flx2)-1.x1015 
xl=1, x107 f(xl)=1.x107 х2--1.х1017 f(x2)=-1. x107 
х1=1.х10778 f(x1)=1.x108 хд=-1.х101# f(x2)=1. x10 
ж1=1.х10719 {(х1)=1.х10179 х2--1.х10719 f(x2)=1. x102 


由 输出 结果 可 以 独到 ，x 越 接近 0, ео) 的 值 越 大 。 
例 3-2-4 ”观察 函数 y=xsinx 的 图 形 ， 体 会 无 穷 大 量 与 无 界 函数 的 区 别 。 
将 y=xsinx,y=x,y=-x 的 图 形 画 在 一 张 图 上 ， 输入 以 下 语句 : 


In[]:=Plot[{x*Sinfx], x, -xj (x, -20, 20}, PlotStyle -> 
{RGBColor[], 0, 0],RGBColor[0， 0, 1],RGBColor{0, 0, 1]}] 


Out[]= 
- Graphics - 
输出 图 形 如 图 3-2-3 所 示 。 


图 3-2-3 


由 图 可 见 ， 通 数 y = xsin x 在 其 定义 域内 无 界 ， 但 非 无 穷 大 量 。 
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例 3-2-5 无 穷 小 的 阶 及 上 比较 ， 
由 极限 


х 
lim 11, iml, lim =! 
хәб X хәб у? 2 хәб y 6 


ЭП, 当 x ЭО, y =ех -1 是 了 的 一 阶 无 穷 小 уу =1~cosx 是 x 的 二 阶 无 穷 小 ，yy = віх 


是 x 的 三 阶 无 穷 小 。 
下 面 我 们 从 几何 和 数值 黄 个 方 而 来 观察 无 穷 小 的 阶 数 对 无 穷 小 趋 近 于 零 的 速度 的 影响 。 
D 先 从 图 形 上 观察 。 
In(]:=Plot[(EAx - 1, 1 - Cos[x], x - Sin[x]}, (x, -1, 1}, PlotRange -> {-1, 1}, 
PlotLabel -> {"E^x-1 , 1-Cos[x] , x-Sin[x]''), 
PilotStyle -> (RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1])] 
Out[]= 
- Graphics - 
AEREE 3-2-4 所 示 。 由 图 可 知 ， 无 穷 小 的 阶 数 越 高 ， 函 数 趋 近 于 零 的 速度 越 快 。 


{Е^к-1 ¿ 1-eos[z] х-л ар) 
1 


(2) 下 面 再 从 数值 上 进行 观察 。 
In[]:=n=5; 
了 Print[" xi е^х-1 1-соѕх x-Sinx"]; 
Forfi=0,i<=n,i++,xi=(0.1)^i; 
y1=N[EAxi-1,5];y2=N[1-Cos[xi],5];y3=N[xi-Sin[xi],5]; 
Print[xi," "y1," "ул" ",уз] 


1 
Out[]= 
xi e x1 1-cosx x-Sinx 
1 1.71828 0.459698 0.158529 
0.1 0.105171 0.00499583 0.000166583 
0.01 0.0100502 0.0000499996 1.66666 х 1077 
0.001 0.0010005 5.x107 1.66667 x 10710 
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0.0001 0.000100005 5.х109 1.66667 1073 
0.00001 0.0000100001 5.х101ї 1.66667x 10 É 
数值 输出 结 打 与 图 形 观察 结果 一 致 。 


实验 内 容 


练习 1 将 例 3-2-1 (1) 的 程序 中 数列 的 项 数 4 不 断 增 大 ， 进 一 步 观 察 输出 结果 。 

练习 2 将 例 3-2.1 (2) 的 程序 中 数 。 的 取信 不 断 缩小 ， 观察 输 出 结果 ， 验 证 结论 ， 不 论 
E 多 么 小 ， 总 存在 N， 当 n>N 时 ， 点 x) 完全 落 在 了 y=A-e 与 y=A+e 之 间 ， 即 
|. -А<е 

练习 3 已 知 lim at -了 用 Mathematica 编写 程序 ， 从 数值 和 几何 两 方面 观察 数列 与 
其 极限 值 的 接近 程度 ， 体 会 极限 的 概念 。 

练习 4 已 知 іп 021-2, 编写 一 小 段 程序 ， 对 于 任意 给 定 的 常数 e > 0 ， 找 出 使 不 等 


л-= 2n+1 


„| 3n+1 3 
式 | 9175 |<e 成 立 的 正 整数 。 


练习 5 将 例 3-2-2 (2) 的 程序 中 数 。 的 取 值 不 断 缩小 ， 观 察 输出 结果 。 验证 结论 : Ж 
论 e 多 么 小 , 总 存在 a, Ж|х-1|<а 时 ,函数 图 形 完全 落 在 了 带 形 区 域 y=1-e 与 y=1+e 之 间 ， 
HORIEI 

练习 6 适当 改变 例 3-2-3 的 程序 中 的 语句 , 进一步 观察 输出 结果 ， 体会 无 穷 大 量 的 概念 。 


练习 7 将 加 的 取 值 尽量 缩小 ， BEER у= хап 1 t MARARA im xsin l 。 
sin 


练习 8 将 加 的 取 值 尽量 放大 ， Юй ШЖ у= xsin 过 的 图 形 并 观察 当 xs (оодо), 函数 


у= xsin 十 是否 为 有 办 函数 ， шхо, y=xsin 上 是 否 为 无 穷 大 。 编写 一 段 程序 ， 从 数值 


十 验证 你 的 结论 。 
练习 9 选取 适当 的 区 间 画 出 函数 y=xcosx 的 图 形 ， 并 观察 函数 在 (-oo,+e) 内 是 否 有 界 ， 
BË xe 时 函数 是 否 为 无 穷 大 。 
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实验 3-3 ”导数 的 概念 及 其 几何 意义 


实验 目的 


1. 用 几何 方法 验证 、 演 示 导 数 的 概念 。 
2. 用 几何 方法 演示 导数 的 几何 意义 。 


实验 指导 


例 3-3-1 由 切线 的 定义 我 们 知道 , 一 条 曲线 C 在 点 M 处 的 切线 是 过 该 点 的 割 线 MN 当 点 


МШЕ C ES IF] М Е, #18 MN 绕 丰 点 旋转 的 极限 ， 于 是 切线 的 斜率 也 就 是 过 点 的 
BE MN 的 斜率 的 极限 。 我 们 以 曲线 y = х 在 点 4) 处 切线 的 斜率 为 例 , 从 数值 和 几何 两 方面 
来 说 明 以 上 结论 。 


(1) ЖЖ ух хет 


и[:={х,_]:=х^3; 
DIflx],x]; 
1=%/х->1 
Out[]= 
3 


即 曲线 y = х* EA 处 切线 的 斜率 上 = 3 。 


D 下 面 从 数值 上 观察 切线 斜率 与 制 线 斜率 的 关系 。 
In[]:=n=10; р[х_]:=(х^3-1)/(х-1); 
Forfi=1,i<=n-1,i++, 
хЇ=ЇМ(1+10^(41),51;х2=М{1-10^(-й),5]; 
Ргіп["х1=",х1," "'"g(x1D="g[x1]" ", 
"a= х0," "g=" g2 


Out[]= 
xi=1.1 g(x1)=3.31 х2=0.9 g(x2)=2.71 
x1-1.01 g(x1) =3.0301 x2-0.99 g(x2)=2.9701 
xl=1.001 g(x1) =3.003 x2-0.999 g(x2) =2.997 


х1=1.0001 5(х1)=3.0003 x2=0. 9999 9(х2)=2.9997 
х1=1.00001 9(х1) =3.00003 х2= 0.99999 9(х2) =2.99997 
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9{х1)=3. х2=0.999999 9(х2)=3. 
9х1) =3. х2-1. 9(х2) =3. 

9х1) =3. х2=1. 9(х2)=3. 
9(х1}=3. х2=1. (х2) =3. 


(3) КОЛ „ЖАНЕ асе бу а Ж. 
ю[:=[х_]:=х^3; 
По[РюЮЦхЫ[1]+2^4%(11+1/2^Ц14Т11рфҖ(х-1)}, 
{x,0,2.5},PlotRange->{0,9},PlotStyle-> 
{RGBColor[0,0,1],RGBColor[1,0,01}],{t,0,8,1/2}] 

选择 CtrltY 组 合 键 可 以 进行 动画 演示 割 线 通 近 切 线 ， 割 线 的 斜率 东 近 导数 的 过 程 。 

BD 3-3-2 动画 演示 函数 ?=sinx 的 导数 与 函数 y=cosx 的 关系 ， 验 证 导数 公式 
(sin x)'= cosx 。 

In[]:=flx_]:=Sin[x]; 
Do[Plot[(Cos[x],(f[x+1/t]-f[x])/(1/t)),1x,-2Pi,2Pi),PlotRange->[-2,2], 
PlotStyle->(RGBColor[0,0,1] RGBColor[1,0,0])1,[t,1,15)] 

例 3-3-3 画 出 函数 y=x+sinx 及 其 导 函 数 的 图 形 ， 从 几何 上 验证 单调 函数 的 导 函 数 不 一 
定 是 单调 函数 。 

输入 程序 : 

In[]:=fíx_] := x + Sin[x]; 
Plotl(fx], f'[x]), (x, -10, 10}, 
PlotStyle -> (RGBColor[1, 0, 0], RGBColorI[0, 0, 1]}] 
Out[]= 
- Graphics - 
输出 图 形 如 图 3-3-1 所 示 。 


实验 内 容 


练习 ” 纺 写 程序 ， 用 几何 的 方法 验证 基本 初等 函数 的 导数 公式 。 
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实验 3-4 ” 定 积分 的 概念 及 其 几何 意义 


实验 目的 
通过 几何 与 数值 相 结 合 的 方法 演示 定 积分 的 概念 和 定 积分 的 几何 意义 。 
实验 指导 


定 积分 的 思想 是 “分 割 、 近 似 、 求 和 、 取 极限 ”。 若 函数 РО) ERK ab) ETR, 则 f(x) 
在 [a, 如 上 的 定 积分 为 


; а 
Í rey = ту лера 


例 3-4-1 动画 演示 小 矩形 面积 的 和 副 近 曲 边 梯形 的 面积 。 
输入 以 下 程序 可 以 动画 演示 小 矩形 面积 的 和 逼近 曲 边 梯形 的 面积 。 
In|]:=Clear[f]; 
flx_]:=xA2+1;a=0;b=2;m=0; 
g=Plot[fTx],(x,0,2),PlotStyle->RGBColor[1,0,0], 
DisplayFunction->Identity]; 
For[n=0,n<100,n=n+4;t1=();t2=(]; 
For[i=0,i<n,i++,x1=a+(b-a)i/n;x2=x1+(b-a)/n; 
tl=Append[t1,Graphics[[RGBColor[0,1,01, 
Кесїапае[{х1,0],{х2,1х2]}11]; 
t2=Append[t2,Graphics[{RGBColor[0,0,1], 
Rectangle[{x1,f[x1]},{x2,0}]}]] 
1; 
Show[t1,t2,g,PlotLabel->n"intervals"] 
] 
输出 的 部 分 图 形 如 图 3-4-1 所 示 。 
例 3-4-2 动画 演示 小 梯形 的 面积 和 台 近 曲 边 梯形 的 面积 。 
输入 以 下 程序 可 以 动画 演示 小 梯形 的 面积 和 逼近 曲 边 梯形 的 面积 。 
Int]:=Clear[fl; 
flx_]:=1-xA2;a=0;b=1; 
20=Plot[f{x],{x,0,1},PlotStyle->RGBColor[1,0,0]] 
For[n=2,n<=10,n++, 
gl={}; 
Ког=0<пї++,х1=а+(Ь-а)/п;х2=х1+(б-а)/п; 
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gl=Append[g1,Graphics[[RGBColor[0,0,1], 
Polygon[((x1,0),(x1,f[x1]),(x2,fIx2]),(x2,0))1)111; 
Show[g1,g0,PlotLabel->n" intervals '']] 
输出 的 部 分 图 形 如 图 3-4-2 所 示 


4 intervals 8 intervals 


(b) 


22 invervals 
100 intervals 


© (d) 
图 3-4-1 


2 intervals 10 intervals 


(a) b) 
图 3-4-2 


例 3-4-3 以 | xadr 为 例 观察 积分 和 与 定 积分 的 关系 
(1) 从 数值 上 进行 观察 。 
先 求 出 积分 值 : 

In[]:=Integrate[x^2,{x,1,2}//N 

Out[]:= 


= .= 


2.33333 
即 各 分 的 近似 值 为 2.33333。 
在 区 间 [a, 如 上 任意 捅 入 n 一 1 个 分 点 ， 为 保证 分 割 加 细 时 ， 各 小 区 间 的 长 度 趋 了 了 0， 在 取 


分 点 时 ， 让 相信 两 分 点 的 由 离 小 于 27—@, DERA у, maritu) E (ше [0 为 随机 


п 
ЖО. Я#Е® БН НК Ae =a tvit) 《 vie [QI 为 随机 数 ) 作 积分 和 进行 计算 ， 
程序 如 下 : 
In[]:=Clear[f,x]; 
fix_]:=x^2; 
a=1;b=2;n=10; 
For[k=1,k<=7,k++,n=n*2: 
Array[x,[n+1)]; 
x[0]=a;x[n]=b;s=0; 
Do[x[i]l=a+(i+Random[])#(b-a)/n,(i,1,n-1)]; 
Forli=0,i<n,it+, 
c=x[i]+Random|[]*(x[i+1]-x[iD; 
s=s+f[c]*(x[i+1]-x[i))1; 
Print["n=",n,"  s=",s] 
1 
输出 结果 如 下 《〈 运 行 结果 可 能 有 差异 ): 
Out[]:= 
п-20 5=2.33397 
D=40 5=2.32706 
n80 s-2.33604 
n160 5-2.33366 
n=320 s=-2.33307 
п=640 5=2.33331 
n=1280 5=2.33335 
(2) 从 几何 上 进行 观察 。 


我 们 知道 ， f(y>0 时 ， 定 积分 | food ИЗЕН х= а, х=Ь, y=0,y= fo) 所 有 


的 曲 边 榜 形 的 面积 ， 下 面 我 们 从 几何 上 绘制 分 划 逼 近 图 ， 用 小 矩形 的 面积 和 到 近 曲 边 梯 开 
面积 。 


8 


š 


In[]:=Clear[f;,x,a.b,r]; 
Hx_]:=xA2; 
a=0;b=1;n=0; 
g=Plot[fix],(x.a,b],PlotStyle->(RGBColorí[1,0,01), 
DisplayFunction->1dentity]; 
For[j=3j<=200,j+=2,n=j;r={}: 


一 19 一 


Array[x,{n+1}];x[0]=a;x[n]=b; 
Do[x[i]=a+(i+Random[])*(b-a)/n,(i,1,n-1)]; 
For[i=0,i<n,i++, 
c=x[i]+Random[]*(x[i+1]-x[i]); 
r=Append[r,Graphics[(RGBColor[0,0,1],Rectangle[(x[i],0),(x[i+1],flc])])11]; 
Show[r,g,PlotLabel->(n-1)"points"]] 
运行 后 得 到 的 部 分 图 形 如 图 3-4-3 所 示 , 这 些 图 形 还 可 以 动画 演示 逼近 过 程 。 虽然 每 次 运 
行 后 的 图 形 可 能 有 差异 ， 但 总 的 趋势 是 ， 分 割 点 个 数 越 多 ， 小 矩形 的 面积 之 和 越 逼近 曲 边 梯 
形 的 面积 ， 即 积分 和 越 逼 近 积 分 值 。 


4points 18po ints 


(a) (b) 


60 points 198 po ines 


图 3-4-3 
实验 内 容 


练习 1 设 /j(D= 妇 -3x2+x+5，(xe[-13] )， 根 据 定 积分 的 定义 编写 一 段 程序 ， 从 几 
何 上 演示 用 小 矩形 面积 和 逼近 曲 边 梯形 面积 的 过 程 。 

练习 2 设 JCD= 妆 -3z2+x+5，(xe[-13] )， 根 据 定 积分 的 定义 编写 一 段 程序 ， 从 几 
何 上 演示 用 小 梯形 面积 和 侦 近 曲 边 梯形 面积 的 过 程 .。 
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实验 3-5 Taylor AR 5 BRAZ MAE 


实验 目的 


1. 通过 几何 与 数值 的 方法 演示 用 Taylor 多 项 式 允 近 函数 的 思想 。 
2. 通过 几何 与 数值 结合 的 方法 演示 用 函数 的 Taylor 多 项 式 对 函数 进行 近似 表示 时 ,xo 和 
对 近似 程度 的 影响 。 


实验 指导 


在 各 类 初等 函数 中 ， 多 项 式 是 最 简单 的 一 种 。 这 是 因为 多 项 式 只 涉及 加 法 、 减 法 和 乘法 
三 种 运算 ， 央 此 ， 对 于 多 项 式 来 说 无 论 是 数值 运算 还 是 微 积 分 运算 都 分 简单 。 如 何 用 一 个 
多 项 式 来 通 近 给 定 的 函数 ，Taylor 公式 给 出 了 答案 。 

定理 (Taylor 公式) ”如果 函 数 f(x) 在 xo 的 某 邻 域 (a,b) 内 具有 直到 n+1 阶 的 导数 ， 则 当 
rela bdi, HAR у(х) = Р(х) + R, (х) т, Нр 


Z" = w Је e) 


(x—x ++ 


(x= xo)” 


Р, (х) = /(х) + (о) хо) + 


(ан) 
ИЕ (х-х0)", £ fE. xo бөх] 


КЕ (о) 5 О) ÉE x PA Ëf) УТ Taylor 多 项 式 。 当 用 已 (9 近似 表示 уу. TTE) А, (х) 计算 误 


В, (х) = 


` ja- 5-1 通过 几何 直观 观察 7 = віп хло =0 点 的 a=13.57 阶 Taylor 多 项 式 与 通 数 的 近 
似 程度 。 
In|]-=Clear[x,f,n];flx_]:=Sin[x];Do[a=Normal[Series[f[x],(x,0,n)11; 
Plot[{ftxha},{x,-2Pi,2Pi),PlotStyle->{RGBColor[1,0,0], 
RGBColor[0,0,1]}),{n,1,7,2}] 
Out[]= 
- Graphics - 

输出 图 形 如 图 3-5-1 所 示 。 


例 3-5-2 ”以 函数 y=e* 为 例 , 观察 用 函数 的 Taylor 多 项 式 对 函数 进行 近似 表示 时 ， 和 


对 近似 程度 的 影响 。 
D 国定 m =0 让 # 增 炎 。 首 先 从 几何 上 进行 观察 : 
Inf}:=Clear[f,x,t];ffx_]:=E^x; 
For[i=2,i<=5,i++,t=Normal[Series[fIx],(x,0,i)]]; 
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Plotl{f{x),t},{x,-3,3},PlotStyle->{RG BCoiorf1,0,0), 
RGBColor[0,0,1}},PlotLabel->{"n "i}]] 


Out[]= 
- Graphics - 
输出 图 形 如 图 3-5-2 所 示 。 
а Р 
Z 
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图 3-5-1 
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图 3-5-2 
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л АЗИ Lutra, 
In[]:=Clear[f,x,ti,ril; 

flx_]:=Exp[x]; 

For[i=1,i<=10,i++, 
ti=Normal[Series[f]x],{x,0,i H]; 
ri=N[Abs[fíx]-ti]/.x->1,5]; 

Ргіп"п=",1," ","ra=",ri]] 
Out[]= 

n=1 r=0.718282 

n=2 r=0.218282 

n=3 ү-0.0516152 

п=4 r=0.0099485 

n=5 r=0.00161516 

n=6 r=0. 000226273 

n=7 r=0.0000278602 

De8 г-3.05862х10° 

n=9 r=3.02886x107 

n=10 1-2.73127х10% 

D RE nik xo 改变 。 输 入 以 下 程序 ， 从 几何 上 进行 观察 : : 
Tn[]:=flx_]:=EAx; 

For[x0=-2,x0<=3,x0+=2, 
Series[f[x],(x,x0,3]]//N;t=Normal[Series[f[x],(x,x0,3)11; 
РіоҢТх],0)4х,-4,5),Аѕрес Кабйо->Ашіотабйс,РіоВапре->{-2,6}, 

PlotStyle->(RGBColor[1,0,0], RGBColor[0,0,1] }PlotLabel->{"x0="',x0}] 


1 
Out[]= 
- Graphics - 
输出 图 形 如 图 3-5-3 所 示 。 
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山 以 上 图 形 可 以 观察 出 着 4 ИРЕ, хо ТАЈ, ЖШ f(x) 的 Taylor 多 项 式 也 不 相同 ， 在 如 附 
Ж fO) 与 其 Taylor 多 项 式 接 近 程 度 服 好 。 


实验 内 容 


练习 1 自由 选择 函数 ,从 几何 上 观察 函数 的 各 阶 Taylor 多 项 式 的 图 形 与 函数 图 形 的 关系 。 

练习 2 通过 例 3-5-2 (1) 中 几何 和 数值 的 观察 ， 你 能 知道 用 Taylor 多 项 式 对 函数 进行 
近似 表示 时 ， 多 项 式 的 次 数 & 对 近似 程度 有 什么 影响 吗 ? 自由 选择 其 它 函数 ， 编 写 程序 进行 
观察 。 

练习 3 编写 一 段 程 序 ， 对 以 上 观察 结果 从 数值 上 进行 验证 。 

练习 4 任 选 一 个 函数 并 用 Mathematica 编写 程序 ,分 别 从 几何 和 数值 上 进行 观察 : ML B 
的 Taylor 多 项 式 对 函数 进行 近似 表示 时 ，xo 和 对 近似 程度 的 影响 。 
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实验 3-6 Taylor 级 数 与 Fourier 级 数 的 收敛 性 


实验 目的 

从 几何 与 数值 两 个 方面 验证 和 演示 Taylor 级 数 、Fourier 级 数 的 收敛 性 。 
实验 指导 

RRAS 在 包含 *= 恕 的 某 个 区 间 内 其 有 任意 阶 导数 ， 则 称 寡 级 数 


a t) 
торка A О-у" + 


ЖЮ РО) CfE x= xo Pa) 的 Taylor 级 数 ， 当 xo =0 时 称 其 为 了 (x) BJ Maclaurin 级 数 。 
Ро) ОЕ х= хо) 的 Taylor 级 数 是 由 f(x) 及 其 备 阶 导 数 在 x+= 如 点 的 值 构造 出 来 的 一 
ARRA, BORRAR KAET? 它 的 和 函数 与 f(x) 有 怎样 的 关系 ? 
例 3-6-1 将 y=sinx 展 开 为 Maclaurin 级 数 ,并 观察 随 着 项 数 的 增加 , 级 数 的 部 分 和 函数 
In[]:=Clear[n, ti]; 
n = 50; 
For[i = 0, i <= n, і += 5, 
ti = Normal[Series[Sin[x], {x, 0, i)]]; 
Plot[{Sin[x], ti}, (x, -SPi, 5Р1), PlotRange -> {-1.5, 1.5}, 
PlotLabel -> {"n=", i}, PlotStyle -> {{RGBColor{1, 0, 0], 
Dashing[{0.03, 0.02)1), (RGBColor[0, 0, 1]})1 


] 
运行 之 后 输出 的 部 分 图 形 如 图 3-6-1。 将 上 述 程序 中 输出 的 所 有 图 形 选 中 ， 按 Сину 组 
合 键 还 可 以 动画 演示 收敛 过 程 。 
在 实际 问题 中 经 常 需要 将 一 个 周期 函数 分 解 成 一 系列 简单 周期 函数 的 全 加 。 这 个 问题 在 
数学 中 便 是 求 周期 函数 的 Fourier 级 数 。 在 怎样 的 条 件 下 一 个 函数 的 Fourier 级 数 收敛 于 函数 
ЖА? 
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{л=, 28} 
1. 


图 3-6-1 


例 3-6-2 W fO) 0 2л 5 ЖИМЕШЕ, Е, п) .上 的 表达 式 为 
sof -л<х<0 


О<х<л 
下 面 我 们 从 几何 上 来 观察 f(x) 的 Fourier 级 数 收敛 于 у (о) 的 过 程 。 
In[]:= Clear[x,f,Si,n,a0]; 
a0=1/Pi*Integrate[x,[x,0,Pi)] 
a[n_]=1/Pi*Integrate[x*Cos[n*x],(x,0,Pi]l С REZAR) 
b[n_]=V/Pi*Integrate[x*Sin[n*x],[x,0,Pi)] © * 计算 余弦 项 的 系数 + ) 
х. 1:=Which{x<-2Pi,0,-2Pi<=x<-Pi,x+2Pi,-Pi<=x<0,0, 
0<=x<Pi,x,Pi<=x<2Pi,0,x>=2Pi,x-2Pi]; © * 定义 周期 函数 f(x) * ) 
Forfi=1,i<30,i+=3, 
Silx_]:=a0/2+Sum[a[n]*Cos[n*x]+b[n]*Sin[n*x],[n,1,i)]; 
Ç * 定义 f (a) 的 Fourier 级 数 的 前 i 项 和 * ) 
Plot[(flx],Si[x]),(x,-3Pi.3Pi),PlotRange->[-0.5,3.5), 
PlotStyle->(RGBColor[1,0,0] RGBColor[0,0,1]), 
PlotLabel->{"n=", i}] 
1 
运行 后 部 分 图 形 如 图 3-6-2。 将 上 述 程序 输出 的 所 有 图 形 选 中 ， 1 Ctrl+Y 组 合 键 还 可 以 
动画 演示 收敛 过 程 。 
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3-6-2 


例 3-6-3 将 fnD=x+l(0sxsm 展 开 为 正弦 级 数 和 余弦 级 数 ， 并 观察 级 数 的 部 分 和 数 
ЭРЕЗЕ РА ЖОНО. 
D 将 Fa 展开 成 正弦 级 数 。 
先 对 f(x) 进行 奇 延 拓 ， 得 到 以 2л 为 周期 的 周期 函数 g(x) ， 如 图 3-6-3 所 示 。 
In[]:=f[x_]:= х > 0 && x < Pi, x + 1]; 
gix_] := Which[x < -2Pi, x + 2Pi - 1, -2Pi <= x < -Pi, 
x + 2Pi + 1, -Pi <= x < 0, x - 1, 0 <= x < Pi, x + 1, Pi <= x < 2Pi, 
x - 2Pi - 1, x > 2Pi, x - 2Pi + 1]; 
Plot[{fTx], g[x]}, (x, -3Pi, 3Pi), 
PlotStyle -> (RGBColor([1, 0, 0], Dashing[ (0.02, 0,02}1}]; 
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再 将 g(x) ENA ERAR ЕЛИП. F Bag 3283809862 838] р REE, M 
FE 3-6-4 所 示 。 
Tn[]:=b[n_] = 2/Pi*Integrate[(x + D*Sin[n*x], (х, 0, Pi}; 

i=5; 

Si[x_] := Sum[b[n]*Sin[n*x], (n, 1, i}]; 

Si[x] 

Forlfi=1,i< 30,i+=3, 

Plot[{g[x], Si[x]}, (x, -3Pi, 3Pi}, PlotRange -> (-5, 5), 

PiotStyle -> (RGBColor[1, 0, 0], RGBColor[0, 0, 1]}, 
PlotLabel -> {"n=", #1; 


Out[]= 
2 (2+7) Sinix] 2 (+ + (-1->)) Sin(2x 
+ 
л л + 
2 (4+ 25) sinx] 2(1, 1(-1-л)) 5йл{4х) 2 (4 +a) sin5x] 
+ + 
x л 


图 3-6-4 


(2) 将 f(x) 展开 成 余弦 级 数 。 
对 РО) 进行 偶 延 拓 ， 得 到 以 2n 为 周期 的 周期 函数 h(x) ， 如 图 3-6-5 所 示 。 
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In|]:=Clear[x, f, g, Si, n, a0, a, b, r}; 
fix ]:= fx > 0 && x < Pi, x + 1]; 
h[x_] := Which[x < -2Pi, -x - 2Pi + 1, -2Pi <= x < -Pi, 
x + 2Pi + 1, -Pi <= x < 0, -x + 1, 0 <= x < Pi, x + 1, 
Pi <= x < 2Pi, -x + 2Pi + 1, x >= 2Pi, x - 2Pi + H; 
Ро (fix], g[x]j (х, -3Pi, 3Pi}, PlotRange -> {-5, 5), 
PlotStyle -> {RGBColor{1, 0, 0], Dashing[{0.02, 0.02)]]1; 


E 3-6-5 


Жа) ЖОКИ, ЖАЛА EA 524838 09 3882y 30 ЖК, ШР 3-6-6 


所 示 。 
In[]:=Clear[x, f, Si, n, аб, a, b]; 

a0 = 2/Pi*Integrate[(x + 1), {x, 0, Pi}]; 

а[п_] = 2/Pi*Integrate[(x + 1)*Cos[n*x)], [x, 0, Pi}]; 

i=5; 

Si[x_] := a0/2 + Sum[a[n]*Cos[n*x), (n, 1, i}; Sifx] 

h[x_] := Which[x < -2Pi, -x - 2Pi + 1, -2Pi <= x < -Pi, 
х+2рі +1, -Рі <= x < 0, -x + 1,0 <=x <Pi, x+ 1, 
Pi <= x < 2Pi, -x + 2Pi + 1, x >= 2Pi, x - 2Pi + 1]; 

Forli = 1,1 < 30, i += 3, 

Plot[{h[x], Sifx]}, {x, -3Pi, 3Pi}, PlotRange -> {-5, 5}, 
PlotStyle -> (RGBColor[1, 0, 0], RGBColorí0, 0, 1]}, 
PlotLabel -> {"n=", i}]] 

Out[]:= 
+ = 4Cos[x] 4Cos[3x] 4Cos[5x] 


л л 9л 25x 
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ms D 
N NF N NS N 
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{ne 10) (m=, 28) 
NN NZ NN NZ 
-7.5 -5 -2.5 2.5 s 7.5 -7.5 -5 ~2.5 es s 7.5 
-2 РЯ 
И М 


© @ 
Ё 3-6-6 


将 所 有 图 形 选 中 ， 按 CtrlrY 组 合 键 可 以 动画 演示 收敛 过 程 。 
实验 内 容 
练习 1 将 例 3-6-1 程序 中 的 n 什 以 及 绘图 区 间 不 断 增 大 ， 进 一 步 观察 收敛 过 程 ， 你 能 得 
出 什么 结论 ? 
练习 2 自由 选择 函数 编写 一 段 程序 ， 从 几何 上 观察 其 Taylor 级 数 的 收敛 性 。 


练习 3 ERREA 3-6-3 (2) 中 的 第 2 自 程 序 里 的 数值 i， 进一步 观 察 输出 结果 。 另 外 
在 间断 点 附近 ， 逼 近 曲 线 是 否 总 有 较 大 的 跳动 ? 你 能 说 明 为 什么 吗 ? 
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实验 3-7 KAR e 的 研究 


实验 目的 


利用 Mathematica 鲜 究 重要 极限 jinQt+ "=e， 并 求 数学 常数 e 的 近似 值 。 


实验 指导 


例 3-7-1 通过 数值 与 几何 相 结合 的 方式 观察 数列 x, = ai 的 单调 性 和 有 界 性 。 
FARRAR n K, x, 的 变化 情况 。 


In[l:=n = 1000; 
For[i = 1, i <= n, i += 100, xi = М + 1Л)^%, 10]; 
Print{ "n=", i," ", "xn=", xi]l 
Out[]= 
n=1 xn=2. 


n=101 xn=2.70495 
0=201 xn=2.71155 
mn=301 xn=2.71378 
п=401 xn=2.7149 

п=501 xn-2.71557 
0=601 xn=2.71602 
0=701 xn-2.71635 
п=801 хп-2.71659 
71-901 хт-2.71677 


从 以 上 输出 结果 可 以 看 出 数列 х, = adr 是 单调 增加 的 , 并 且 可 以 猜 出 3 为 其 一 个 上 界 。 


即 数列 zx 为 单调 增加 数列 ， 18 1+1) =e。 和 F 一 样 ，e 也 是 重要 的 无 理 数 ，1727 年 ， 瑞 


士 数学 家 首先 用 字母 e 表 示 了 这 个 重要 的 无 理 数 。 
#13-72 ен. 


а) 利用 数列 xn = a+" ЖГ. 


In[]:=n=1000; 
е=М[(1+1/п)^п,10]; 
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r=N[E-e,10]; 

Print['n=",n” ee=",e," рег) 
ОшП: = 

n=1000 е=2.71692 т=0.0013579 


由 于 数列 = 1+ у" KIERRE, MAR х, = 14-1)" HE RERA. 
п 


(2) 利用 e* 的 Taylor 展开 式 来 计算 e 。 由 于 


1 1 
ех altata? +. +—x" +R, (х) 
2! п! 


其 中 ， Bi (0<6<D。 令 x=1 得 


е=ї+ї+ ++. 
2! n! 


== ааа m i 


求 出 e 的 近似 值 并 算出 误差 : 
In[]:=n=12; 
sn=NormalfSeries[E^x,{x,0,n}]]; 
e=N[sn/.x->1,10]; 


г=М[3/(а+1)!,10]; 
Рн" е="е” rer] 
Out[]= 
n12 е=2.71828 r<4.81771< 10330 
实验 内 容 


练习 1 不 断 增 加 例 3-7-1 的 程序 中 的 nn 信 ， 进一步 观 察 输出 结果 。 

练习 2 画 出 数列 x 0D HRAM, 从 几何 直观 上 验证 例 3-7-1 的 结果 。 

AII 现 罕 当 1 直 于 无 大 时 数列 5 01, yn а BRAR 

(0 求 出 当 严 =10m”， 严 =12…,10 时 二 六 的 值 ， 观 察 变化 趋势 。 

D налаза", yada”, y=e 的 图 形 画 在 一 张 图 上 ， 通 
过 观察 你 能 得 出 什么 结论 ? алл ырк? 

练习 4 用 Mathematica 88 8 88, Mn ATARE, ААЖ енна жей 

似 值 ， 并 估计 误差 。 
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实验 3-8 АЖЫЛ л 


实验 目的 
通过 几何 直观 观察 审 贺 术 的 思想 和 方法 ， 并 计算 数学 常数 的 近似 值 。 
实验 指导 


例 3-8-1 动画 演示 割 圆 术 的 方法 ， 观 察 内 接 正 多 边 形 和 外 切 正 多 边 形 如 何 逼 近 圆 的 面 
积 。 


In[]:=For[k = 0, k <= 5, k++, 
n=6*2^k; 
v1 = Graphics[(RGBColor[1, 0, 0}, Cirele[(0, 0}, 111; 
v2 = Graphics[{RGBColor[0, 1, 0], 
Line[Table[(Cos[2Pi*i/n], Sin[2Pi*i/n]), (i, 0, п}1]}]; 
v3 = Graphics{{RGBColor{0, 0, 1], 
Line[ Table[{ Cos[2Pi*i/n]/Cos[Pi/n], Sin[2Pi*i/n]/Cos[Pi/n]), 
4,0, а}; 
Show[v3, v1, v2, AspectRatio -> Automatic]] 
输出 的 部 分 图 形 如 图 3-8-1 所 示 。 选 中 所 有 图 形 ， 按 Ctrl+Y 组 合 键 可 以 动画 演示 割 贺 木 
的 方法 。 


аа 


= 


РАЙ 


E 3-8-1 
91 3.8.2 天 的 计算 。 
(1) 利用 圆 内 接 正 多 边 形 的 面积 计算 r 。 
魏 晋 时 我 国 鞭 名 数学 家 刘 徽 通过 计算 圆 内 接 正 192 边 形 的 面积 ， 得 到 圆周 率 
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157 


3927 


=3.14: 后 来 ， 又 计算 出 圆 内 接 正 3072 边 形 的 南 积 ， 得 到 圆周 率 x= 二 -=3.1416。 南 


1250 


北朝 时 数学 家 祖冲之 运用 这 一 方法 精确 地 计算 出 x 的 值 在 3.1415926 和 3.1415927 2 1, 是 当 

时 世界 上 最 早 的 ? 位 小 数 精确 值 。 
FF 和 钾 我 们 用 多 边 形 的 面积 求 x。 
AMERS 介 于 内 接 多 边 形 5, 和 外 切 多 边 形 $, 之 间 ， 当 圆 的 半径 为 1 时， 其 面积 惟 好 为 

n. 单位 圆 的 内 接 多 边 形 耐 积 为 


S = 2n sin cos п 28 
2 n n n 
单位 圆 的 外 切 多 边 形 面积 为 
5, =ntan z 
n 
Ж Beine m <ntan 
2 n n 
WEOE 7#, nan 7 Еу а ОЗИ. 
输入 以 下 程序 计算 r: 
In[]:=Print[" al", " a2", " гт," п"; 
For[k = 0, К <= 15, k++, 
n= 6*2^k; 
al = N[n/2*Sin[2Pi/n], 20]; a2 = N[n*Tan[Pi/n], 20]; r = a2 - al; 
Ргіпўа1, " ",а2," "и" "aj 
] 
Out[]= 
al a2 r n 
2.5980762113533159403 3.4641016151377545871 0.8660254037844386468 6 
3.0000000000000000000 3.2153903091734724777 0.2153903091734724777 12 
3.1058285412302491482 3.1596599420975004833 0.0538314008672513351 24 
3.1326286132812381972 3.1460862151314349711 0.0134576018501967739 48 
3.1393502030468672071 3.1427145996453682982 0. 0033643965985010910 96 
3.1410319508905096381 3.1418730499798238717 0.0008410990893142336 192 
3.1414524722854620755 3.1416627470568485262 0.0002102747713864508 384 
3.1415576079118576455 3.1416101766046895388 0. 0000525686928318932 768 
3.1415838921483184087 3.1415970343215261520 0.0000131421732077433 1536 
3.1415904632280500957 3.1415937487713520280 3.2855433019322х10$ 3072 
3.1415921059992715505 3.1415929273850970335 8.213858254830x 10-7 6144 
3.1415925166921574476 3.1415927220386138183 2.053464563707х 1077 12288 
3.1415926193653839552 3.1415926707019980479 5.13366140927х 10-8 24576 
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3.1415926450336908967 3.1415926578678444198 1.28341535232x 10-8 49152 
3.1415926514507676517 3.1415926546593060325 3.2085383808x10 2 98304 
3.1415926530550368417 3.1415926538571714369 8.021345952 x 10719 196608 


BẸ л = 3.141592653 。 
(2) 用 函数 arctan x 的 宕 级 数 展开 式 计算 x。 


由 于 
_ C pt у?! 
акп х=}, 2k+1 
令 x=1， 可 得 
z £ CD 
4 £2k+1 


据 此 也 可 以 计算 x。 这 个 方法 由 Leibniz 于 1674 年 发 现 。 
输入 以 下 程序 计算 xz: 
In[]:=For[i=0,i<=5000,i=i+500; 
d=NI4Sum[(-D^j/2j+1), ,0,1)D,5]; 


r=N[4/(2i+3),5]; 
Print["i=" i" Річ" ее] 
Out[]= 
1=500 Рі=3.14359 гі-0.00398804 
1=1000 -14259 .001997 
1-1500 14226 гі=0.001332 
1=2000 -14209 ri=0.000999251 
i=2500 .14199 к1=0.00079952 
i=3000 .14193 гі=0.000666333 
1=3500 -14188 ri=0.000571184 
i=4000 .14184 11-0.000499813 
1=4500 .14181 11=0.000444296 
1=5000 ‚14179 ri=0.00039988 
i=5500 .14177 гі=0.000363537 


таку Срат Dx 一 收 人 速度 慢 ， 因 此 计算 时 产生 的 误 关 较 大 。 


D 用 常数 项 级 数 的 和 求 x 。 
由 级 数 


(DE a 


arctanx= 
> 2k + 
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=й, |] ИЙНЕК 0， 级 数 收 化 速度 越 快 。 
令 х=іапа = 


则 ma 


2x— 
сап до = 218020 - 10 10, 
1-tan’ 20 1-02) 119 
12 
x x 
4a = 一 。 =40-—, Д] 
此 i ®8 2° 
120_ 
p= nda 9 __1. 
l+tandæ 120 239 
119 


1 1 
= -4В =16 一 4arctan- 一 一 
п=160-4В arctan Ç аг 239 


®=16 


get ў 1 
+ 501 2k +I 23921 


输入 以 下 程序 计算 x : 
InD:=Forfk=5,k<=25,k~=k+5, 
a=NormallSeries[ArcTan{x],{x,0,k}]; 
p=NI(16a/.x->1/S)-(da/.x->1/239),201; 
r=Abs[N[Pi-p,20]J; 
Printl'"'k=",k];Printl"Pi=",p]; 
Print["r=",r]I 
Ош: = 
k=5 
Pi=3.1416210293250344250 
r=0.0000283757352411866 
k=10 
Pis3.1415926824043995172 
к=2.88146062788х 10 Š 
k-15 
Pi=3.1415926535886022287 
r=1.1910098x 10712 
К=20 
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Pi-3.1415926535897916969 
r=1.5415x 10° 

k=25 
Pi=3.1415926535897932385 
r=0. x107 


Bl] л = 3.1415926535897932385 。 


实验 内 容 


练习 ”查阅 有 关 资 料 找 出 计算 x 的 近似 值 的 方法 ， 并 比较 这 些 方法 的 优 劣 。 
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实验 3-9 ”调和 级 数 与 欧 拉 常数 Y 


实验 目的 
通过 几何 直观 观察 消 和 级 数 的 发 散 性 ， 计 算 欧 拉 常 数 7 的 近似 值 。 
实验 指导 


例 3-9-1 研究 调和 级 数 的 发 散 性 。 
我 们 知道 调和 级 数 立 二 是 发 散 的 ， 一 个 令 人 感 兴趣 的 问题 是 ， 调 和 级 数 发 散 到 无 穷 的 速 


nal 


度 有 多 快 ? 或 者 说 数列 
H(n) = y —=l+—+—+-+— 


趋 于 无 穷 的 速度 有 多 快 ? 我 们 可 以 通过 几何 直观 来 观察 。 
先 来 观察 调和 级 数 前 项 的 和 五 OO = $E ИЙЕЛИ. 
n=} 


JIn[]:=m=200; 
a=Table[Sum[1/k,(k,1,n!],(n,m)V/N; 
a1=ListPlot[a,PlotStyle->PointSize[0.01]] 
输出 图 形 如 图 3-9-1 所 示 。 从 图 中 可 以 看 出 ， 调 和 级 数 发 散 的 速度 较 慢 。 但 是 ， 它 到 底 以 
什么 样 的 速度 发 散 到 无 穷 ? 
我 们 再 来 观察 数列 fno + D HRAN. 
In[]:=b=Table[Log[n+1],(n,m)//N; 
b1=ListPlot[b,PlotStyle->PointSize[0.01]] 
输出 图 形 如 图 3-9-2 所 示 。 通过 观察 发 现 , 调和 级 数 发 散 的 速度 与 数列 血 (s+1j} 的 发 散 速 
度 大 致 相同 。 
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我 们 进一步 从 几何 上 验证 上 述 结果 。 
In[j:=Show[a1, b1, PlotLabel -> "Hbn], Login+1]"]; 


ListPlot[a - b, PlotStyle -> PointSize[0.01], PlotLabel -> "H[n]-Log[n+1]""] 


输出 图 形 如 图 3-9-3 所 示 。 


Rin), Log[n+1] ні лаваш 
a]-Log [ns 


в 
0.575 

5 一 人 
0.57 

а 

"= 0.565 / 

zl: 

К: 

50 100 150 200 
(а) 


ВА 3-9-3 


容易 看 出 ， 当 m -> 时， н) ап +1) ERAK. 
下 面 从 理论 上 进行 证 明 。 事 实 上 ， 设 
514 二 +-no+D= 
п 


Уш+)-а]= 
kal 


1_ 
k 
ее Ге 


由 于 当 xe (k,k + D) 时 ， 1141, 故 


+1 © k+l 1 1 
05, -Ef т Эе, кы?” Íg тй 
即 5, 是 正 项 级 数 ， 且 有 界 ， Rs 记 为 Y， 称 y 为 欧 拉 常 数 。 


例 3-9-2 计算 y 的 近似 值 。 
In[]:=t = Plot[1/x, (x, 0.5, 6), 
PlotStyle -> (RGBColar[1, 0, 0], Dashing[(0.02, 0.02}1}1; 
k=5;r={}; 
iorfi = 1, i <= k - 1, i++, 
r = Append[r, Graphics[{RGBColor[0, 0, 1], 

Line[((i, 15}, {i + 1, М), {i + 1, VG + DJ, 
{i, VG + D), (i, А; 


“hH 
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Show[br] 
Out[]= 
- Graphics - 
Жн БЕРЕШ 3-9-4 所 示 。 


H 3-9-4 


Жз, Y |a Эш шу, mp | E“ d -二 dr 等 于 图 形 中 应 线 与 第 4 个 小 
k 


k 


和 矩形 的 上 半 部 分 围 成 的 面积 ， 548, <1, 用 8, 作为 y 的 近似 值 ， 误 差 7< ©. 


n 
下 面 计算 欧 拉 常 数 y 的 近似 值 。 
In[]:=n=$000; 

Forfi=500,i<=n,i=i+500, 
s=NI[Sum[1/j,(j,1,i)]-Log[i+1],101; 
rn=N[1/(i+1),10]; 

Ргиш{"="д," — s="s"  rn=",n]l 
Ош = 

1=500 5=0.576217 тп-0.00199601 

i=1000 s=0.576716 тт-0.000999001 

i=1500 в-0.576883 гп=0.000666223 
1=2000 s=0.576966 гп-0.00049975 

1=2500 5=0.577016 rn=0. 00039984 

1-3000 s=0.577049 mm=0,000333222 

i=3500 s=0.577073 т-0.000285633 

i=4000 8в=0.577091 үп-0.000249938 

i=4500 8%=0.577105 түп-0.000222173 

1>5000 5=0.577116 rn=0. 00019996 

因此 可 以 得 到 y= 0.577 。 


第 四 篇 高 等 数学 应 用 实验 
实验 4-1 猪肉 价格 问题 


实验 的 基本 理论 与 方法 


1. 数列 收敛 的 概念 。 
2. 差分 方程 的 求解 方法 : 设 差 分 方程 mm + px, A + qx, о =0 的 特征 方程 zz+ pr+9=0 有 
两 个 不 相等 的 根 首 ,二 ， 则 差分 方程 的 通 解 为 


=c п 
x, = cn 十 cz 了 


实验 指导 


一 、 问 题 

在 市 场 经 济 中 存在 这 样 的 循环 现象 : 若 上 一 年 度 某 产品 生产 量 供过于求 ， 则 产品 的 价格 
就 会 降低 ， 而 价格 降低 会 使 今年 的 生产 量 减少 ， 造 成 供不应求 ， 导 致 价格 上 扬 ;， 而 价格 上 扬 
又 将 使 明年 产量 增加 ， 造 成 新 的 供过于求 。 据 统计 ， 某 城市 1998 年 的 猪肉 产量 为 4X 10 ° kg 
(40 万 吨 )， 肉 价 为 6.00 元 / kg，1999 年 猪肉 产量 为 35X10 8 kg (35 万 吨 )， 肉 价 为 8.00 
元 /kg。 已 知 2000 年 的 猪肉 产量 为 3.8X10“ kg (38 万 吨 )， 若 维持 目前 的 消费 水 平 与 生产 模 
式 ， 并 假定 猪肉 产量 与 价格 之 问 是 线性 关系 ， 问 若干 年 后 ， 猪 肉 的 产量 与 价格 是 否 会 趋 于 稳 
定 ? 若 能 够 稳定 ， 试 求 出 稳定 的 生产 量 和 价格 。 

二 、 问 题 分 析 

假设 第 年 猪肉 产量 为 x, ， 猪 肉 价格 为 y, ， 判 断 若 干 年 后 猪肉 的 产量 与 价格 是 否 会 赵 于 
稳定 ， 以 及 稳定 的 产量 和 价格 问题 可 以 归结 为 判断 数列 xy。 是 否 收敛 的 问题 。 在 收敛 的 情 
况 下 其 极限 值 即 为 若干 年 后 猪肉 的 产量 及 其 价格 的 稳定 值 。 

三 、 建 立 模型 

由 于 当年 产量 确定 当年 价格 ， 故 需求 函数 为 y, = f(x,)， 而 当年 价格 又 决定 第 2 年 的 生 
产量 ， 故 供应 函数 为 ra = (ул) 。 根 据 问题 中 的 线性 假设 ， 设 需求 函数 和 供应 函数 分 别 为 ， 

У, = ax, tD, Xp = су„+4, (п=1,2,) 


TE, H 1998 年 、1999 年 猪肉 的 产量 和 价格 ， 可 得 
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6=40a+b 
8=35a+b 


解 此 方程 组 得 a =-= 2. 


同样 ， 由 1998 45, 1999 年 的 肉 价 和 1999 年 、2000 年 的 猪肉 产量 ， 可 得 下 列 方程 组 
35=6c+d 
38=8c+d 


解 此 方程 组 得 < -24 =26. ТАННАН PR ЖОЛУУ 
Yn --25, +22, х. -3 +26 (п =1,2,---) 


四 、 模 型 求解 
下 面 计 算数 列 zw,y 的 极限 。 首 先 ， 由 递 推 公式 


2 3 
ars +22, х, => +26 (п=12,-:) 


得 到 
3 „_2 
җы =26+502- 2) 
由 此 可 知 
3 
Xk+ TAk =-уби-җ)= 
3 
CB ца таъа) == 
З), са) (=12,-3 
5 2 1 — 
WL IA 13 akan A 
, А 
аа Ў) ау ea 
[=] 1 5 
所 以 
1-5" 
An 一 为 十 (ra — 21) 3 
1+= 
5 
因此 


lim xa = z = 36.875 (万 吨 ) 


Pe 


lim ynn = ш(—2х„ +22)=725 (J/kg) 
пә= ne 5 
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通过 以 上 分 析 可 知 , 猪肉 的 价格 和 产 基 部会 趋 于 稳定 。 猪肉 产量 稳定 在 年 产 36.835 77011, 
猪肉 价格 稳定 在 7.25 元 /fg。 


五 、 求 解 程序 
本 问题 可 以 转化 为 求解 二 阶 差 分 方程 


其 特征 方程 为 
5r2-2r-3=0 

In[]:=Clear[x1, х2, гі, r2, сі, c2, solution]; 
x1 = 40;x2 = 35; 
solution = Solve[5r^2 - 2r -3 == 0, г]; 
rl =r /.solutioni[[1, 111; 
r2 =r /. solution[[2, 11]; 
e = Solve[(c1*r1 + c2*r2 == x1, c1*r1^2 + c2*r2^2 == x2}, [c1, c2}; 
01, є2} = (c1, c2) /, П; 
Print["xn=(", с1, ")(", r1, ")^п+(", c2, "X", r2, ")^п"] 


Ош= 
эте ЖР) t Вуле (298 улп 
ш 加 -a 22 
24\ 5) 8 
因此 Tim xun = 29836875 (万 吨 ) 
实验 内 容 


练习 1 求 Fibonacci AAF AA, BA R 1,56 16, = Fy + Fpa o 

练习 2 有 小 免 一 对 ， 若 第 2 个 月 它们 成 年 ， 第 3 个 月 生 下 小 免 一 对 ， 以 后 每 月 生产 小 
免 一 对 。 而 所 生 小 免 亦 在 第 2 个 月 成 年 ， 第 3 个 月 生产 小 免 一 对 ， 以 后 亦 每 月 生产 小 免 一 对 。 
假定 每 产 一 对 小 免 必 为 一 内 一 礁 ， 且 均 无 死亡 ， 问 一 年 后 共有 小 免 多 少 对 ? 


一 203 一 


实验 4-2 ”抵押 贷款 与 分 期 付款 购物 问题 


实验 的 基本 理论 与 方法 
银行 复 利 的 计算 方法 。 
实验 指导 


一 、 问 题 

小 王 看 到 一 则 广告 ， 称 某 汽 车 销售 商 对 汽车 实行 分 期 付款 销售 。 一 台 售 价 为 10 万 元 的 
汽车 ， 只 需 首付 4 万 元 , 剩余 6 万 元 可 实行 分 期 付款 ， 如 果 5 年 付 清 ， 每 月 只 需 1260 л. Я 
外 ， 小 王 又 得 到 一 则 银行 贷款 的 消息 ， 称 10 万 元 以 下 的 贷款 ,在 5 年 内 分 期 还 清 ， 月 利率 为 
5‰。 现 在 小 王 想 买 一 台 上 述 标价 的 汽车 ， 应 使 用 该 项 银行 贷款 ， 还 是 直接 向 商店 分 期 付款 ? 

二 、 问 题 分 析 

小 王 做 出 决策 的 关键 是 要 计算 出 : 如 果 通 过 向 银行 贷款 的 方式 购买 汽车 ，5 年 还 清 贷款 ， 
每 月 需要 还 多 少 钱 。 

三 、 建 立 模型 及 求解 

在 求解 时 需要 考虑 以 下 因素 : 


Ар: 贷款 金额 (60000 7): к. 月 利率 СЕВ), 
х: 每 月 还 款 金 额 ; N: 贷款 期 限 。 
HA А, (Е =1,2,---, MÈRA k 个 月 尚 欠 的 还 款 金额 ， 则 

А = + А-х 


Аз = (1+ )А -x = (1+ КВ)? Ау — (1+ КЁ) +1] 
An = О) Ao -ART (+ RN +. +) 
N 
а+ю* A L z 
令 Aw =0， 得 


N 
«-Ай+Ю” 11g997 
A+R)” -1 


由 些 计算 结果 可 知 ， 如 果 小 王 通过 向 银行 贷款 的 方式 买 车 ,每 月 只 需 向 银行 还 款 1159.97 
元 ， 少 于 向 经 销 商 分 期 付款 的 还 款 金 额 ， 所 以 小 主 应 该 通过 向 银行 贷款 的 方式 买 车 。 


一 204 一 


、 求 解 程序 


ini:=Clearfa0, n, r, x]; 
a0 = 60000; n = 60; r = 0.005; 
х=а0*г*(1 + r)^n/((1 + r)^n - 1) 
Out[]= 
1159.97 


实验 内 容 


练习 1 如 果 小 王 按照 向 汽车 经 销 商 分 期 付款 的 方式 购买 汽车 ， 则 汽车 经 销 商 实 际 向 小 
王 征收 了 多 少 利率 ? 

练习 2 如 果 小 王 每 月 只 能 归还 800 元 ， 选 择 的 利率 大 小 和 借 期 的 最 佳 值 是 什么 ? 

练习 3 小 王 又 看 到 某 借 贷 公 司 的 一 则 广告 : 本 公司 可 以 在 不 增加 还 款 人 金额 的 情况 下 ， 
帮 你 提前 还 清 欠 款 。 若 借款 6 万 元 ，5 年 还 清 ， 只 要 预付 3600 元 的 保证 金 ， 之 后 每 半 个 月 还 
600 元 ， 本 公司 即 可 帮助 你 提前 一 年 还 清 借 款 。 这 则 广告 看 上 去 是 很 族人 的 ， 请 你 帮助 小 王 
Эй- Тт, Ждана Е. 
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实验 4-3 
实验 的 基本 理论 与 方法 
对 面积 的 曲面 积分 的 概念 及 其 计算 方法 。 
实验 指导 


一 、 问 题 


和 目前， 人 类 在 同步 轨道 上 已 经 发 射 了 100 多 颗 通 讯 卫星 。 这 些 卫 星 


同步 通讯 卫星 的 覆盖 面积 问题 


作为 “中 继 站 ”不 断 


地 向 地 球 传送 信息 。 要 实现 地 球 上 任意 两 点 闻 的 通讯 传输 ， 问 至 少 需 要 这 样 的 卫星 多 少 颖 ? 


二 、 问 题 分 析 


地 球 同步 通讯 卫星 的 轨道 位 于 地 球 的 赤道 平面 内 ， 且 可 近似 认为 是 


形 轨 道 。 由 于 卫星 


是 与 地 球 同步 运行 的 ， 所 以 卫星 运行 的 角 速 率 与 地 球 自转 的 角 速 率 相同 (w= 


2x ч 
53000) “假定 


地 球 的 半径 好 = 6.4x105m， 问 题 转化 为 计算 忆 星 距 地 面 的 写 度 ， 进 而 计算 卫星 的 覆盖面 积 ， 


最 后 确定 卫星 的 颗 数 。 
三 、 建 立 模型 


假设 卫星 距 地 面 的 高 度 为 h， 地 球 和 卫 是 的 质量 分 别 为 MM,m ， 于 是 由 万 有 引力 定律 ， 卫 
星 所 受到 的 引力 为 CR ， 其 中 G 为 万 有 引力 常数 。 于 是 ， 由 牛顿 定律 有 


+)? 
СМ" ama (R+) 
(R+h) 
2_GM_GMR_ R 
亦 即 (R+h) TR УЧ 


Ma pa ЕШ А=[45, Др, гаки 
> 


х® +у® +4 = К(д > 0) ИНЕШ (圆锥 a ) 所 截 得 的 部 分 ， 
如 图 4-3-1 所 示 。 
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四 、 模 型 求解 
т (Е ХОУ 平面 上 的 投影 区 域 为 D:x? +y? < R2 sin B (atp=7) 因此 
9z > ,gz _ 
А= [| 1+65 +62 dxdy = 
b 
R 
а 
D {2-22 у? 


Í аө] ®зїпӨ R dr= 


0 0 R2 2 
2rR2(1-cos 有 ) 
由 оо =з = „=. ， 
Аят? TS 
这 里 5 为 地 球 的 表面 积 ， кезу 为 卫星 种 盖 面 积 与 地 球 表面 积 的 比例 系数 。 将 


_ 6 _ = 2n N ` _ 7 _| 
R=64x105, g=98, @ 323600 代入 ， 可 依次 计算 出 =3.6x107 ,k=0.424 ， 即 一 颗 卫 星 


可 以 覆盖 地 球 表面 积 的 42.4%， 使 用 3 颗 相 间 = 的 卫星 可 以 覆盖 全 部 地 球 表面 。 


ж, RERE 
In[]; =R = 6.4*10^6; 
w = 2*Pi/(24*3600); g = 9.8; 
h = (g*RA2/wA2)A(1/3) - R 
k=h/2/(R +h) 
Out[]= 
3.594x 107 
0.424421 


实验 内 容 


练习 1 RRERARRA, BAH 的 水 池内 盛 满 了 水 ， 由 池 底 一 模 载 面积 为 巨 的 小 
LAK. RAADI H WERA v= V28P ， 求 池 中 水 面 高 度 与 时 间 的 关系 和 水 放空 所 器 的 
时 间 。 

练习 2 ”一 图 柱 形 容器 内 充满 了 水 ， 若 以 角速度 四 绕 其 中 心 轴 旋转 ， 问 在 稳 态 情况 下 深 
面 的 形状 是 怎样 的 。 
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实验 4-4 “” 核 废料 的 处 理 问题 


实验 的 基本 理论 与 方法 
常 微分 方程 理论 的 应 用 。 
实验 指导 


一 、 问 题 

以 前 ， 美 国 原子 能 委员 会 将 放射 性 核 废料 装 在 密封 的 圆 桶 里 扔 到 水 深 约 90 m 的 深海 里 。 
生态 学 家 和 科学 家 担心 这 种 做 法 不 安全 而 提出 疑问 。 原 子 能 委员 会 向 他 们 保证 : 圆 桶 决 不 会 
破 漏 。 经 过 周密 的 试验 ， 证 明 圆 桶 的 密封 性 是 很 好 的 。 但 工程 师 们 又 问 : 圆 桶 是 否 会 因 与 海 
ЖИНЕП ЕНЕНЕ? 原子 能 委员 会 说 ， 决 不 会 。 但 工程 师 们 不 放心 。 他 们 进行 了 大 量 的 试验 
ERA: 当 圆 桶 的 速度 超过 12.2 m/s 时 ， 圆 桶 会 因 磁 挤 而 破裂 。 那 么 圆 桶 到 达 海底 时 的 速度 
ЖЕФ ЛЬЮ? 它 会 因 碰 撞 而 破 狼 吗 9 下 面 是 一 些 真实 而 具体 的 数据 ， 请 你 根据 这 些 具体 数 
据 和 解决 这 个 问题 。 

己 知 圆 桶 的 质量 六 = 239.46kg ， 海 水 密度 р = 1035.7ikgmm3 ， 圆 桶 的 体积 Y =0.2058 m3 。 


另外 ， 工 程 师 们 做 了 大 量 它 引 试验 后 得 出 结论 : 圆 桶 下 沉 时 的 阻力 与 圆 桶 的 方位 大 至 无 关 ， 
而 与 下 沉 的 速度 成 正比 ， 比 例 系 数 k =0.6 。 

二 、 问 题 分 析 

只 训 找 出 圆 桶 的 运动 规律 ， 即 可 判断 出 这 样 处 理 核 废料 的 方法 是 否 安全 。 

三 、 建 立 模型 


圆 构 在 运动 过 程 中 所 受到 的 作用 力 包括 : 圆 桶 所 受 的 重力 G、 水 的 浮力 下 和 水 的 阻力 。 
设 圆 桶 的 位 移 函 数 为 s= (0), 速度 函数 为 v*= vtz) ， 由 牛顿 运动 定律 得 圆 桶 的 位 移 和 速度 
满足 如 下 的 微分 方程 


dês ds 
т =G-F-f=mg-pgV -k2 
12 f =mg -pg P" 


ds 
让 = 中 =0 169) 


sia = 
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dv оу 
ma GF = та рву -ky 0) 


0 


У, 7 

REJE O) (D 解 出 圆 桶 的 位 移 函 数 (G) 和 速度 函数 vr) 。 令 s(1) = 90 ， 求 出 圆 桶 落 
AKERA RITE o M veo) 即 为 圆 桶 落 入 海底 时 的 速度 。 这 样 就 可 以 判断 出 这 种 处 理 核 废 
料 的 方式 是 否 安全 。 

四 、 求 解 程序 

In[]:=m=239.46;u=0.2058;g=9.8;p =1035.71;k=0.6; 
st=Dsolve[[m*s”[t]==m*g-p*g*u-k*s' [t] s[0]==0,s*[0]==01[t],t] 

СеО +) 


Out[]= 
{{s[t] > -171511. + 171511. e 0056 ‚ 429,744 t}} 
Tn[]:=vt=Dsolve[ím*v*[t]==m*g-p*g*u-k*v[t]#v[t], v[0]==0),v[t],t] ( * ЖЕЛЕ ЖК < ) 
Dut[]= 
(УГЕ) ”9.00831x10-8e-0.00250564r (-4.77054x103 ;4.77054x109 е0-002505640, | 
In[]:= FindRoot[90==4259.744t+171511.*Exp[-0.00250564t-171511.,(t,13)]l 
C 求 出 圆 桶 落 入 海底 所 需 的 时 间 * > 
Out[]= 
{t> 13.0002} 
In[]:= v[13.002] Ç * 求 出 圆 桶 落 入 海底 时 的 速度 * > 
Out[]= 
{{v[13.002} > 13.7747)) 
求 出 圆 桶 落 入 海底 时 的 速度 "= 13,77 m/s. 显然 此 时 圆 桶 的 速度 已 经 超过 12.2m/s, 因此 可 
以 得 出 结论 :这 种 处 理 核 废料 的 方法 不 安全 。 


实验 内 容 


练习 1 若 将 图 简 沉 入 深度 为 85m 的 海水 中 ， 情 况 如 何 ? 
练习 2 假设 水 的 阻力 与 速度 的 平方 成 正比 ， f=kv?， 并 仍 设 k*=0.6， 这 时 速度 与 时 间 
的 关系 如 何 ? 并 求 出 当 速 度 不 超过 12.2m/s， 圆 桶 的 运动 时 间 和 位 移 应 不 超过 多 少 ? 
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实验 4-5 ”最 优 存 储 问题 


实验 的 基本 理论 方法 
и Ера 
实验 指导 


— ЖЕЛИ 

在 物资 的 供应 过 程 中 ， 由 于 到 货 与 销售 不 可 能 做 到 同步 ， 夏 总 要 保持 一 定 的 库存 储备 。 
但 如 果 库 存 过 多 ， 就 会 造成 一 定 的 积压 浪费 以 及 存储 费用 的 上 升 ， 如 果 库存 过 少 ， 又 会 造成 
由 于 缺 货 而 失去 销售 机 会 ， 使 利 渔 减少 。 因 此 ， 如 何 选 择 库 存 和 订货 策略 是 一 个 需要 研究 的 
问题 。 

二 、 问 题 

某 自行 车 商店 平均 每 天 销售 自行 车 20 辆 ， 已 知 每 辆 自行 车 每 天 的 保管 费 为 075 元 ， 每 
次 的 订货 费 为 75 元 ， 如 果 商 店 不 允许 缺 货 并 且 每 次 订货 均 可 立即 补充 ， 请 为 经 销 商 做 出 最 佳 
决策 ， 隔 多 长 时 间 进 货 一 次 ， 每 次 进货 量 为 多 少 。 

三 、 问 题 分 析 

在 求解 时 需要 考虑 的 费用 有 以 下 两 项 

(O 进货 费用 :包括 两 项 ， 一 项 是 订购 响 用 天 元 (固定 费用 )， 另 一 项 是 货物 的 成 本 费 
用 < 元 / 辆 ， 它 与 订货 数量 有 关 《〈 有 是 可 变 费用 )。 

《2) 单位 时 间 的 存储 费用 : лл. 

所 谓 最 佳 决策 就 是 使 每 天 所 花费 的 总 费用 最 少 。 根据 上 面 的 分 析 ， 我 们 知道 总 费用 
Тет Т, ФТН, т. 


四 、 建 立 模型 


假定 每 隔 : 天 进 一 次 货 ， 每 次 订货 量 为 C HT VR, 则 订货 量 必 须 满足 :时 间 的 
需求 ， 即 at=Q ， 于 是 每 次 的 进货 费用 为 天 +ear， 平均 每 天 的 进货 费用 为 


Т, = Ка 


又 每 天 的 平均 存储 量 为 1 Í гат = тш, 于 是 每 天 的 平均 存储 费用 


1 
Т = ah 


每 天 总 的 平均 费用 
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та) = К еса+ Тат 
t 2 


五 、 问 题 求解 
由 微 积分 求 最 小 值 的 方法 可 求 出 函数 TCD) Eton жуа 的 最 小 值 点 


2K 


эзүү 


即 每 隔 to 时间 进 一 次 货 ， 可 使 费用 了 (7) 最 小 。 


订货 批量 Qo = at = pak 
ë А 2x75 _ э 
代入 数值 t= 575550 21853 R) 


Qo = 63.246 (H 


六 、 求 解 程序 


In[]:=Clearím, t, diff); 
m[t ]:=k/t+ca + 1⁄2a th; 


diff = DIm[t), tl; 
Solveldiff == 0, t] 
Out[]= 
ҮЗ УЕ УЗ УК 
(es (89 0) 
实验 内 容 


练习 某 自 行车 商店 的 仓库 管理 人 员 采 取 一 种 简单 的 订货 策略 ， 当 库存 降低 到 已 辆 自行 
车 时 ， 就 向 厂家 订货 ， 每 次 订货 @ 辆 ， 假 设 商 店 不 允许 缺 货 ， 但 如 果 库 存量 过 多 ， 将 会 导致 
资金 积压 和 保管 费 增加 。 若 现 在 已 有 如 表 4-3-1 所 示 的 5 种 库存 策略 ， 试 比较 选择 1 种 策略 以 
使 所 花费 用 最 少 。 


Ф451 库存 策略 
方案 编号 重新 订货 点 P/ 辆 重新 订货 量 Q/ 辆 
方案 1 125 150 
方案 2 125 250 
方案 3 150 250 
方案 4 175 250 
方案 5 175 300 
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问题 的 已 知 条 件 如 下 : 

(1› 从 发 出 订货 到 收 到 订货 需要 3 天 ; 

(2) 每 辆 自行 车 的 保管 费 为 0.75 元 /天 ， 每 次 的 订货 费 为 75 JX: 
(3) 每 天 自行 车 的 需求 量 平均 为 20 辆 ; 

(4) 原始 库存 为 115 辆 ， 并 假设 第 1 天 没有 发 出 订货 。 
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实验 4-6 


广告 费用 与 利润 问题 


实验 的 基本 理论 方法 


多 元 函数 极 值 理论 、 数 据 的 曲线 拟 合 、 最 小 二 乘法 。 


~ BRNA 


实验 指导 


为 了 尽快 收回 资金 并 获得 较 多 的 利润 ， 商 品 生产 厂家 和 经 销 商 通常 将 广告 作为 产品 促销 


的 重要 手段 。 投 入 一 定 的 广告 费 后 ， 产 品 的 销售 量 将 有 一 个 增长 ， 销 售 增长 量 可 以 由 销售 增 


长 因子 表示 。 例如， 投入 3 万 元 的 广告 费 ， 销 售 增长 
的 1.85 倍 。 虽 然 说 ， 商 品 的 销售 速度 是 | 


子 为 1.85， 即 销售 量 将 是 预期 销售 量 
为 作 广告 而 增加 的 ， 但 这 种 增加 是 有 一 定 限度 的 ， 


当 商 品 在 市 场 上 趋 于 饱和 时 ， 销 售 速度 将 趋 于 它 的 极限 值 ， 当 速度 达到 它 的 极限 值 时 ， 无 论 
再 以 何 种 形式 做 广告 ， 销 售 速度 都 将 减 慢 。 
是 生产 厂家 和 经 销 商 需要 研究 的 问题 。 


二 、 问题 


此 ， 对 于 某 种 商品 而 言 ， 


如 何 确定 其 广告 费用 


某 公 司 生产 一 种 耐用 消费 品 ， 每 件 产品 的 生产 成 本 为 2 元 ， 产 品 上 市 之 前 ， 该 公司 对 同 
类 产品 的 售 价 与 市 场 销售 量 进行 了 市 场 调研 ， 预 测 出 该 产品 的 售 价 与 预期 销售 量 关 系 如 表 


4-6-1 所 示 。 


表 4-6-1 产品 的 售 价 与 预期 销售 最 关系 表 


В 2.00 2.50 


预期 销售 量 /和 于 桶 | 41 38 


3.00 3.50 
34 32 


400 | 450 | 500 


5.50 


6.00 


2 | 28 | 25 


22 


20 


为 尽快 收回 资金 并 获得 利润 ， 产 品 一 上 市 ， 该 


公司 即 天 


f 苔 做 广告 。 经 过 一 段 时 间 的 市 场 


跟踪 调查 之 后 ， 预 测 出 该 产品 的 广告 费 与 销售 增长 因子 的 关系 如 表 4-6-2 所 示 。 
表 4-6-2 产品 的 广告 费 与 销售 增长 因子 的 关系 表 
广告 费 /元 0 10000 | 20000 | 30000 | 40000 | 50000 60000 | 70000 
ЖКТ | 100 140 1.70 1.85 195 2.00 195 1.80 


根据 以 上 预测 结果 ， 请 你 为 该 公司 决策 :该 产品 的 广告 费用 和 销售 价格 为 多 少时 ， 预 期 


利润 最 大 ? 
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三 、 问 题 分 析 


在 求解 时 需要 考虑 的 因素 包括 : 
c: 单位 产品 的 生产 成 本 : x: 预期 销售 重 
у: ЧИЙ: z: 小 告 费 ; 

实际 销售 量 : k: 销售 增长 因 了 ; 
Р: 销售 利润 。 
ШТ 


利润 = 销售 收入 一 产品 生产 成 本 一 广告 费 
所 以 , 问题 转化 为 将 利润 表示 为 产品 售 价 y 和 广告 费用 z 的 函数 , 即 求 出 P= PO, с) 的 表达 
式 ， 然 后 用 微 积 分 的 知识 求 出 P(y,z) 的 极 值 点 即 可 。 


四 、 建 立 模型 并 求解 


根据 家 4-6-1 给 出 的 数据 绘图 ( 见 图 4-6-1)， 确 定 出 蔬 期 销售 量 x 与 产品 售 价 》 之 间 的 函 
数 关系 为 线性 关系 。 

设 

x=aytb 
其 中 ，ab 为 待定 常数 。 遂 过 表 4-6-1 给 出 的 数据 用 最 小 二 乘法 进行 直线 拟 合 ， 得 出 
а= –5133, = 50422 

根据 表 4-6-2 给 出 的 数据 绘图 ( 见 图 4-6-2)， 确 定 出 销售 增长 因子 与 # а ERR 
数 关系 为 二 次 函数 关系 。 

设 


к=? +ez+ f 
H, def 为 待定 常数 ， 通 过 表 4.6-2 给 出 的 数据 用 最 小 二 乘法 进行 次 曲线 拟 合 ， 得 出 


d =-4.256х1070, e= 4.092x10 5, f =1.019 


于 是 
Р(у, 2) =5у-5с-2= 
s(y-e)-z= 
kx(y-c)- ¿= 


(dz? +ez+ fXay+b)(y—c)— z 


要 求 利 润 的 最 大 值 ， 也 就 是 要 求 函数 P = P(y,z) 的 极 值 。 902-022 -оерунын 


(dz? +ес+ f)Qay+b—ac) =0 
(222+ е)(ау +Б)(у с) =0 
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ас-Ь z е 
` (ау+Ь(у-с) 24 
а,Ь, с,а, е, f HERA, 1H 
у= 6.04, z = 33113 
直上 授 的 计算 可 知 ， 当 每 单位 产品 销售 份 为 6.04 元 时 ， 投 入 33113 20607 ER, БТК 
得 利润 最 人 ， 为 116875 元 。 


五 、 求 解 程序 


(1) 绘图 程序 及 图 坎 〈 见 图 4-6-1 和 图 4-6-2): 
JIn[D:=Clear[ab]; 

a = ((2., 41000), (2.5, 38000}, (3., 34000}, (3.5, 32000}, (4., 29000}, 
14.5, 28000}, {5., 25000), (5.5, 22000}, 16, 20000}; 

b = {{0, 1.}, (10000, 1.4}, 120000, 1.7), (30000, 1.85}, (40000, 
1.95), (50000, 2.}, (60000, 1.95}, (70000, 1.8}}; 

ListPlot[a, PlotStyle -> (PointSize[0.02], RGBColor[l 0, 0]}] 

ListPlot[b, PlotStyle -> (PointSize[0.02], RGB Color[1, 0, 01} 


Out[]= 
- Graphics - 
40000 z ` Ы . 
. . 
1.8 А 
35000 . . 
. 1.6 
20000 
. . 1.4 + 
25000 . 
1.2 
+ - 
2 4 s Е 10000 20000 30000 40000 50000 60000 70000 
E 4-6-1 Ё 4-6-2 


(2) 数据 拟 合 程序 ; 
Tn[]:=a = {{2., 41000), (2.5, 38000), {3., 34000}, (3.5, 32000}, {4., 29000}, (4.5, 28000}, 
{5., 25000), (5.5, 22000), (6, 20000}; 
Fitfa, {1, у}, у] 
Out[]= 
50422.2- 5133.33у 
In[]:=b= {{0, 1.}, (10000, 1.4), (20000, 1.7), (30009, 1.85), (40000, 1.95), 
150000, 2.), 160000, 1.95), (70000, 1.8)); 
Fitla, (1, y, у^2}, у] 
ОшП= 
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1.01875 + 0.0000409226у - 4.25595x 10719 у^ 
03) 极 值 点 的 求解 过 程 : 
In[]:=Clear[y, z, a, b, c, d, e, f, p, tl; 
a = -5133; b = 50420; c = 2; d = -4.256*10^(-10); e = 4.092*10A(-5); f = 1.019; 
p[y_, z. ] := (d*z^2 + e*z + f)*(a*y + b)*(y - e) - z; 
t = Solve[[D[p[y, z] == 0, y}, Югру, z] == 0, 2]), (y, z} 
Out[]= 
((y- -1.15843x10°, z > -20522.), 
{уэ -18.4117, z > 116669.}, {y> -18.4117, z > 116669.), 
{уэ 6.04133, z> 33112.9), (y> 1.15844x10f, z> -20522.)) 


实验 内 容 


练习 ” 表 4.6-3 是 历史 上 关于 形 梁 价 格 与 销售 攻关 系 的 一 份 详细 记录 .假定 产品 的 广告 费 
与 销售 增长 因子 的 关系 仍 如 表 4-6-2 所 示 , 试 确定 该 产品 的 广告 费用 和 销售 价格 ,使得 预期 利 
HRK. 


#463 彩 漆 价格 与 销售 量 关 系 表 


BIT 200 | 250 3.00 3.50 | 400 | 450 | 500 | 550 | 600 
预期 销售 量 / 桶 | 40719 | 37727 | 34856 | 32106 | 29477 | 26969 | 25 482 | 22316 | 20171 


— 216 — 


实验 4-7 ”生产 计划 问题 


实验 的 基本 理论 方法 
线性 规划 的 基本 方法 和 理论 。 


实验 指导 

一 、 问 题 

某 工厂 计划 用 m 种 资源 生产 种 产品 。 假 设 生产 单位 个 第 JU =12,…,n) 种 产品 所 需要 的 
第 让 =12…, 四 种 资源 量 为 ay ， 第 ;种 资源 的 可 用 量 为 六 ， 而 生产 单位 个 第 j 种 产品 所 产生 
的 利润 为 cj Wil: 怎样 组 织 生产 ， 可 使 工厂 获得 最 大 的 利润 。 

二 、 建 立 模型 

设 第 j 种 产品 的 生产 量 为 +) ， 则 可 建立 数学 模型 。 

RARE х,ол, MEARKE 


a 
анх; <Б 

> PID, (уеде зул) 

x 20 


并 使 函数 
Z= Èc ; 
у= 
达到 最 大 值 。 这 是 一 个 线性 规划 模型 ， 通 常 写成 


А 
тах2 = У сух; 
я 


‚ (j=12,--..n) 


> 

аух Sb; 

st. 200927 
x; 20 


П, Эт=п=2, Б =180, b,=150, аү=2, axn=3, aņ=2, aa =4, a =4, 
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ca=6 时 ， 数 学 模型 为 


max Z = 4xí + 6xX; 


3x, +2ху <150 


2x; +4х; <180 
St 
120,520 


这 是 一 个 线性 规划 模型 。 线 性 规划 模型 的 一 般 形式 为 


min Z = cx 


mx2b 
st. 
x20 


三 、 模 型 求解 


运用 命令 LinearProgramminglc, m, b} 或 ConstrainedMin[/, [inegualities),( x, y, ...5[ 
以 直接 求 出 结果 。 例 如 ， 输 入 
In(l:=LinearProgramming[(-4, -6}, ((-2, -4}, {-3, -2}}, (-180, -150}} 
Out[]= 
(30, 30) 
即 可 得 出 结果 。 


实验 内 容 


练习 1 某 公 夜 服务 的 公交 线路 每 天 各 时 段 所 项 司 售 人 员 数 目 如 表 4-7-1 所 示 。 
表 4-7-1 各 时 段 所 需 河 售 人 员 数目 


班次 时 间 段 所 需 人 数 
1 6: 00—10; 00 60 
2 10: 00—14: 00 10 
3 14: 00—18: 00 6 
4 18: 00—22; 00 50 
5 22. 00—2: 00 20 
6 200—6 0 | 30 


若 司 售 人 员 分 别 在 各 时 段 一 开始 上 班 ， 并 连续 工作 8 小 时 ， 问 该 公交 线路 应 该 配备 多 少 
IFAR. 

练习 2 某 车 间 有 一 批 长 度 为 74 m 的 同型 钢管 ， 因 生产 需要 ， 需 将 其 截 成 长 为 29m、 
21m 和 1.5m 三 种 不 同 长 度 的 管 料 , 若 三 种 管 料 各 需 100 根 ,应 如 何 下 料 ， 才能 使 用 料 最 省 ? 
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实验 4-8 ”安全 渡河 问题 


实验 的 基本 理论 方法 


实验 指导 


一 、 问题 

3 名 商人 各 带 1 名 随从 ， 要 莱 一 只 最 多 能 容纳 两 人 的 小 船 波 河 。 随 从 们 密约 ， 无 论 在 河 
的 此 岸 或 者 彼岸 ， 一 旦 他 们 的 人 数 多 于 商人 的 人 数 ， 就 杀人 越 货 ， 但 如 何 渡河 则 由 商人 确定 。 
请 为 商人 们 确定 安全 的 渡河 方案 。 


二 、 建 立 模型 


这 是 一 个 智力 游戏 问题 ， 而 且 已 经 理想 化 了 ， 因 此 不 必 做 更 多 的 假设 。 虽 然 经 过 一 番 还 
辑 思 考 可 以 得 到 正确 的 方案 ， 但 为 了 便于 编程 求解 ， 同 时 也 为 了 便于 推广 ， 我 们 把 上 面 的 问 
题 转化 为 一 个 状态 转移 问题 。 

没 交 ?分别 表 示 此 岸 的 商人 和 随从 的 数目 (5?=0423) ， 则 此 岸 的 状态 可 表示 为 
к= 全 为。 显然 ， 此 岸 和 彼岸 都 安全 的 状态 集合 〈 称 为 允许 状态 集合 ) 为 

5 =[(x,y)lx=0;x=3;x=y=1,2) 
乘 船 方案 叫做 决策 ， 用 4 = (u,v) 来 表示 ， 显 然 允许 ， 决 策 集 合 为 
D={(u,v)lu +v =1,2) 

ЭМНЕЛЕ SIE RERE AAT, ERRENAK. а AAR, 
小 船 由 此 岸 到 彼岸 ， 此 岸 的 人 数 减 少 ， 当 天 为 偶数 时 ， 小 船 由 彼岸 回 到 此 岸 ， 此 岸 的 人 数 增 
加 ， 因 此 ， 状 态 转移 规律 为 


эы =з +d; 
于 是 安全 渡河 问题 归结 为 如 下 的 数学 问题 : 求 决策 di e Dü =12…) ， 使 状态 ws 8 ， 按 照 状 
态 转移 规律 ， 由 初始 状态 (3.3) ， 经 过 有 限 次 转移 达到 s,(0.0) ， 当 然 4 越 小 越 好 。 
三 、 求 解 程序 
InD:=s1=Table[{0,i},{i,0,3}]; 
s2=Table[{3,j),{j,0,3}]; 
s3=Table[{k,k},{k,1,2}; 
s=Union[s1,s2,s3]; O 定义 多 许 状态 集合 + 》 
d={{0,2}{2,0},{1,1},{1,0},{0,1}}; ‹* 定义 允许 决策 集合 *) 
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ls=Length[s]; (* 计 算 允 许 状态 集合 元 素 个 数 *) 
М=Гепрїһ[4]; 
For[i=1,i<=łs,i++,a[i]=Part[s,i}]; 
For[j=1,j<=ld,j++,b[j]=Part[d,j]]; 
i=1;j=1;ss[1]=(3,3); 
Do[ 
Do[ss[i+1]=ss[i]+(-1)Ai*b[j]; 
t=0; 
TIf[MemberQ[s,ss[i + 11], t = 1]; 
If[t == 0, Continue[]]; (* 判断 是 否 属于 允许 状态 集合 *) 
v=Mod[i+1,2];m=v;u=0; 
Ші+1>=3, 

Do[HTss[i+1]==ss[m]u=1;Break[]],(m,vi-1,2]]]; 
If[u==0,c[i+1]=b[j];Break[]],(j,1.14)] (* 判断 是 否 重 复 *) 
Tflt==0,Print["No result"]; Break[]]; 

Print[i,'" ",ss[i], "е-е, СН), "--—------——.- >" вз +1]; 
1flssli+1]==(0,0),Break[]],(i,1,12) 


1 
Out[]= 
1 (3,3)----.-.. 0, 2) >43, 1} 
2 --->{3, 2) 
3 --->{3, 0} 
4 --->{3, 1} 
5 
6 
7 
8 
9 
10 
11 , >{0, 0} 


这 说 明 经 过 11 步 就 能 达到 安全 渡河 的 目的 。 具体 方案 如 下 (从 此 岸 观察 ) 
(3 商人 3 随从 ) 一 :mA (3 商人 ,1 随从 ) -BA 、(3 商人 2 随从) _зюйА 、 


GEAMA — ЖА, оз 商人 ,1 随从 ) 28А, C 商人 ,1 随从) IRAMA у 
(2 商人 ,2 ШЙ) —А8А (0 商人 ,2 随从 ) ~ BA ORARE 28А, 


(0 商人 ,1 随从 ) 一 人 ，(0 商人 ,2 随从 ) 28А, 商人 ,0 随从 ) (安全 渡河 )。 
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当然 渡河 的 方案 并 不 惟一 。 另 外 ， 本 题 也 可 以 用 图 解 的 方法 来 解决 。 
实验 内 容 
练习 1 在 上 述 条 件 下 , 当 商 人 的 数目 为 4 时 (随从 数目 也 为 4), 商人 们 能 否 安全 渡河 ? 


练习 2 考虑 一 般 的 问题 ， 若 商人 的 数目 为 m， 小 部 最 多 只 能 容纳 all<n<m) 人 (船上 
也 会 发 生 杀 人 越 货 的 情况 )， 当 m 和 满足 怎样 的 条 件 ， 商 人 们 才能 实现 安全 渡河 ? 
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实验 4-9 ”基因 分 布 问题 


实验 的 基本 理论 方法 
矩阵 的 特征 值 、 特 征 向 量 的 概念 以 及 计算 方法 。 
实验 指导 


一 、 问 题 
为 了 揭示 生命 的 奥秘 ， 人 们 越 来 越 重 视 遗传 特征 的 诸 代 传播 问题 。 在 常 染 色 体 的 遗传 中 ， 
任何 生命 的 后 代 都 会 从 每 个 父 本 的 基因 对 中 各 继承 一 个 基因 ， 形 成 自己 的 基因 对 〈 也 称 为 基 
因 型)。 
假设 所 考虑 的 遗传 特性 是 由 4 控制 的 ， 那 么 就 有 3 种 基因 对 ， 即 hk,4a,aa 。 例 如 ,人 金 
鲁 草 有 两 个 遗传 基因 决定 他 的 花 的 颜色 ， 基 因 型 是 44 的 金鱼 草 开 红 花 ， 基 因 型 是 ha 的 金鱼 
草 开 粉 花 ， 而 基因 型 是 aa 的 金鱼 草 开 白花 。 表 4-9-1 是 某 种 植物 父 本 基因 型 的 所 有 可 能 的 组 
合 以 及 后 代 形 成 每 种 基因 型 的 概率 。 我们 的 问题 是 , 如 果 计划 采用 AA 型 的 植物 与 每 种 基因 型 
植物 相 结 合 的 方式 培育 后 代 ， 经 过 若干 次 遗传 后 ， 后 代 的 3 种 基因 分 布 如 何 。 


表 4-9-1 某 种 植物 父 本 基因 型 的 组 合 及 后 代 形成 概率 
父 体 -母体 的 基因 型 


АА-АА | АА-Аа АА-аа Аа-Аа Аа-аа аа-аа 
1 1 

后 AA 1 5 0 一 о 0 
к 
基 

Аа 0 1 1 1 1 0 
В 2 2 2 
m - 

аа 0 0 0 i 1 I 

4 2 
— 
二 、 建 立 模 型 


T хү(л),х (0), x3 (n) 分 别 表示 第 n 代 植物 中 基因 型 为 44, Аа, aa 的 植物 占 总 植物 的 百分率 ， 
第 = 代 植 物 的 基因 分 布 向量 


x(n)=(xi(n),x,(n),xs (n)! , n=012,. 


而 且 
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m (ni хо (n) + x (n)=1, п=04,2,--- 
由 表 4-9-1 和 关于 培育 方式 的 假定 知 
дођи аа) 
хий) = хоп) + ху(т-1) 


х(ш=0, nm=12… 
若 令 


> юреюре 


则 上 式 可 以 表示 为 
xXx(n+D = Lx(n), п=12,--- 


此 ， жп) =L" x(0), п=01,2,--- 


ЖТИ, ， 可 以 利用 线性 代数 中 对 角 化 的 方法 ， 即 求 出 可 逆 矩 阵 己 ， 使 P-LP = р Ж 
HAER, Jam =Рр"Р^\, 


三 、 求 解 程序 


Tn[]|:=L = ((1, 1/2, 0), 10, 1/2, 1), {0, 0, 0}}; 
{p, d} = JordanDecompasition[L]; 
р1 = Inverse[p]; 

р. MatrixPower[d, п].р1; 
MatrixForm[%] 

Out[]= 

[1 1-27 1+0- 211 
0 2n -20n+21n 


о 0 о J 
即 
1 1-2 142700 
І" -рр"рі -|o 2" 2-4-0) 
о 0 0 
因此 
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x(n) = x, (0) + (1— 27”)х,(0у+ (1— 2731), (0) 

xa (m) = 2" x (0) + 2 "tl x, (0) 

xs (n) = 0, п= 1,2,--- 
BERRA п — о PJ, ху (н) — 1, хо (п) — 0,ху(л) 地 0。 这 说 明 在 极限 状态 下 ， 所 有 植物 的 基 
因 都 会 呈现 AA Ж. 


实验 内 容 


练习 1 在 上 述 问 题 中 ， 若 不 选用 АА 型 的 植物 与 每 种 基因 型 植物 相 结 合 的 方式 培育 后 
代 ， 经 过 着 干 次 遗传 后 ， 后 代 的 3 种 基因 分 布 如 何 ? 

练习 2 讨论 常 风 色 体 隐 性 疾病 遗传 问题 。 假 设 某 种 遗传 病 对 应 的 基因 型 将 人 口 分 为 3 
Ж: 44 型 基因 对 的 正常 人 ，4a 型 基因 对 的 隐 性 患者 ，aa ин, ХЖ, а 
始 时 (第 0 代 ) 这 3 种 人 占 总 人 口 的 比例 为 so,po,co ， 而 且 不 准 显 性 患者 结合 产生 后 代 ， 求 
经 过 若干 代 遗 传 后 ，3 种 人 口 的 分 布 如 何 ? 
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第 五 篇 线性 代数 实验 
实验 5-1 ”和 矩阵 与 向 量 的 运算 


实验 目的 
掌握 用 Mathematica 进行 矩阵 和 向 量 运 算 的 方法 。 


实验 的 基本 理论 与 方法 


1. 向 量 的 运算 。 
2. 矩阵 的 运算 、 矩 降 可 逆 的 条 件 、 逆 矩阵 的 计算 方法 。 


实验 使 用 的 Mathematica $t 


1. A+B, (А-В): 矩阵 或 向 量 的 加 减法 。 

2. тА: 数 与 矩阵 相 乘 。 

3. А.В: 和 矩阵 与 矩阵 相 乘 。 

4. Det[A]， 求 4 的 行列 式 。 

5. Transpose[A]: R A 的 转 置 。 

б. Inverse[A]: >K A ЙН. 

7. Аттау[а {тп}: 定义 mxn RE k, 

8. IdentityMatrix[n]: n 阶 单位 矩阵 。 

9. MatrixPower[A, n]: ЖА п К. 

10. Minors[A,k]: 以 4 的 上 阶 子 式 为 元 素 所 做 成 的 矩阵 。 


实验 指导 


1 1 1 1 2 3 
#511 | 1 | |}; -2 4|, Ж3АВ-2А ЖАТВ.]А| A. 


1-11 0 5 1 


(1) ZIGER A,B 。 
In[]:=Clear[A, В]; 
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А = Array[a, (3, 3}]; 
all, 1]=1; а[1,2]= 1; afl, 3] = 1; 
a[2, 1] = 1; a[2, 2] = 1; a[2, 3} = -1; 
a[3, 1] = 1; a[3, 2] = -1; a[3, 3] = 1; 
A 
Out[]= 
HL 1 1}, (1, 1, -1), (1, -1, 1}} 
In[]:=B = Аггау[Ь, (3, 3}]; 
b[1,1] = 1; b[1, 2] = 2; b[1, 3] = 3; 
b[2, 1] = -1; b[2, 2] = -2; b[2, 3] = 4; 
ЫЗ, 1] = 0; ЫЗ, 2] = 5; ЫЗ, 3] = 1; 
B 
Out[]= 
Hl, 2, 3), (-1, -2, 4), (0, 5, 1)) 
(2) 计算 34B-24 。 
In[]:=3A.B - 2A 
ОшП= 
00-2, 13, 22), {-2, -17, 20), (4, 29, -2)) 
(3) 计算 47B 。 
In[]:=Transpose[A].B 
Out[]= 
{{0, 5, 8}, (0, -5, 6}, (2, 9, 011 
(4) 计算 |4|。 


In[]:=Det[A] 

Out[]= 

-4 

(5) 计算 4 。 
In[]:=Ínverse[A] 
Out[]= 


1 1 1 1 1 1 
0,55 s. 15-59) 
还 可 以 用 如 下 的 方法 求 4-1: 

In[]:=Minors[A, 2]J/Det[A]; 
MatrixForm[%] 
Out[]= 
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1 2 
0 2 2 
1 1 
2 0 -3 
1 _L 
3-3 0 
可 见 
oi 
-2 13 22 0 5 8 2 
3AB-2A=|-2 —17 20|, ATB=|0 -5 6|, |4|=-4, ал 0 
4 29 -2 2 9 0 1 1 
2 


1 -13 4 


1 
#512 emafi 14 外 в-| т! А ‚ ЖИШШ АТ (ABI ВТАТ. 
4 


(1) ZEREA, B. 

In[]:=Clear[A, B, a, b]; 
А = Аттау[а, (2, 41; 
a[l, 1] = 2; а[1, 2] = 1; а[1, 3] = 4; a[1, 4] = 0; 
a[2, 1] = 1; a[2, 2] = -1; a[2, 3] = 3; a[2, 4] = 4; 
B= Array[b, (4, 3}; 
bm 1]= 1; 1, 21 = 3; b[L, 3] = 1; 
b[2, 1] = 0; b[2, 2] = -1; b[2, 3] = 2; 
ЫЗ, 1] = 1; ЫЗ, 2] = -3; ЫЗ, 3] = 1; 
ЫА, 1] = 4; ЫА, 2] = 0; b[4, 3] = -2; 

(2) 计算 47 。 

Tn[]:=Transpose[A] 
MatrixForm[%] 

Out[]= 

((2, 1), (1, -1}, (4, 3), (0, 4)} 
Out[]= 


оът № 
i 
whe 


(3) 计算 (4B)T 。 


JIn[]:=Transpose[A.B] 
Out[]= 
(06, 20), 1-7, -5), 18, -6)) 
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(4) HOB AT, 
In||:=Transpose[B] .Transpose[A] 


Outlj= 
{{6, 20}, {-7, -5}, {8, -6}} 
2 1 6 20 
um, АТ=|! 10, (ав) =втАт =) -7 -5l 
4 3 
8 -6 
0 4 


例 5.1.3 求解 矩阵 方程 。 


2 1 -l 
1 -1 3 
G) XI2 1 0 -| | 


ШХА=В, ПХ = BA. FEIER A,B 。 


In[]:=Clear[A, B, a, b]; 

А = Array[a, (3, 3}]; 

a[i, 1] = 2; а[1, 2] = 1; a[1, 3] = -1; 
a[2, 1] = 2; a[2, 2] = 1; а[2, 3] = 0; 
а[3, 1] = 1; a[3, 2] = -1; а[3, 3] = 1; 
В = Аггау[Ь, (2, 3}; 

b[1, 1] = 1; b[1, 2] =-1; b[1, 3] = 3; 
b[2, 1] = 4; b[2, 2] = 3; b[2, 3] = 2; 


再 计算 B47! 。 
In[1:=B.Inverse[A] 
Out[]= 
(ezn fis-2) 
3 
-2 2 1 
Bp x-a 5 -2 
3 3 
0 1 0 100 1 -4 -3 
022 110 окоо 1j=|2 0 -ih 
001 010 1-2 0 


ШАХВ=С, ПХ АСВ. АЕА В. 


In[]:=Clear[A, В, а, b, G]; 
А = Атгау[а, {3, 3}}; 
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即 


a[l, 1] = 0; afl, 2] = 1; a[1, 3] = 0; 
a[2, 1] = 1; a[2, 2] = 0; a[2, 3] = 0; 
a[3,1] = 0; a[3,2] = 0; а[3, 3] = 1; 
В = Array[b, (3, 31]; 
b[1, 1] = 1; b[1, 2] = 0; b[1, 3] = 0; 
b[2, 1] = 0; b[2, 2] = 0; b[2, 3] = 1; 
b[3,11= 0; 63, 2] = 1; b[3, 3] = 0; 
G = Array[c, (3, 3}]; 
e[1, 1] = 1; c[1, 2] = -4; c[1, 3] = 3; 
c[2, 1] = 2; c[2, 2] = 0; e[2, 3] = -1; 
<[3, 1] = 1; c[3, 2] = -2; c[3, 3] = 0; 
WARA GB, 
Tn[]:=Inverse[A].G.Inverse[B] 
Out[]= 
002, -1, 0}, (1, 3, -4), (1, 0, -2}} 


2-1 
X=A GB =|1 3 
1 0 


0 
#1 5.14 і 
-1 


юе ш 
vouw 


HAB=A+2B, ТЇЙ В=(А-2Еу!А , 


先 定 义 矩 阵 4 。 
In[]:=Clear[A, B, a, b]; 
А = {{0, 3, 3}, {1, 1, 0), {-1, 2, 3); 
再 计算 矩阵 如 。 
了 n[:=B = nyerse[A - 2IdentityMatrix[3]].A 
Out[]= 
000,3, Зр, (-1, 2, 3), (1, 1, 0)) 


0 33 
B=|-1 2 3 
1 10 


| АВ=А+2В, ЖВ. 
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3 4 00 
ж 4 739 9 AP. 41, RA, 
例 515 Ë a= 0 2 op RP; ЫРУ: 
0 0 22 
定义 矩阵 人。 


In[1:=Clear[A1; 
A = {{3, 4, 0, 0), (4, -3, 0, 0), (0, 0, 2, 0), (0, 0, 2, 2}}; 


нир. 
In[]:=Det[A]^3 


Out[]= 
-1000000 


计算 |4?| 。 


In[]:=Det[A_A.A] 
Out{]= 
-1000000 
计算 44。 
In[]:=MatrixPower[A, 4] 
Out[]= 
(1625, 0, 0, 0), (0, 625, 0, 0}, (0, 0, 16, 0), (0, 0, 64, 16}} 
65 0 0 0 
3 0 625 0 O 
Г, |а =|a2|=—1000000, 4* = о o 1 OÍ 
0 0 64 16 
#516 设 a = (2,513),а; = 0101,5/10),а3 = (4-11), 
(12 K3a +2а,-аз a 
In[]:=3al + 2a2 - a3 /. (a1 -> (2, 5,1, 3), a2 -> (10, 1, 5, 10}, 
a3 -> (4,1, -1, 1} 


Out[]= 
{22, 16, 14, 28) 
即 3a) +2a, —as = (22,16,14,28) 
(2) Ë 3a, -a)+ Xa, +а)= 5а; +4), Жа. 
先 解 含 a 的 代数 方程 。 


In[]:=Clear[al, a2, a3, a]; 
t = Solve[3(a1 - a) + 2(a2 + а) == 5(a3 + а), а] 
Out[]= 


Қаз 2 Gat. 2a2- 585) 
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Hada, a, RA: 
In[]:=t /, {al -> (2, 5, 1, 3}, a2 -> (10, 1, 5, 10}, 
аЗ -> {4, 1, -1, 1) 
Out[]= 
{{аэ{1,2,3,4})) 
Ша = (1,2,3,4) 。 


ху=2уу+2у + ys 
ху =3y ty. t5y, ， 求 从 变量 ,xa, х. IER уу, ya, ys 的 线性 
ху 二 371 十 2y2 十 373 


例 517 已 知 线性 变换 


x ЕД у x 
该 变换 用 和 矩阵 表示 为 | z2 =A у, |, Ду |=А x fe 
Xa Уз Уз х3 


In[1]:=Clear[Á, х1, х2, х3, y1, y2, y3); 
А = (02, 2,1), (3,1, 5), {3, 2, 3} 
{{y1}, (y2), (УЗН = Ipverse[ A1.((x1), {х2}, (х3); 
Out[]= 
{{-7х1-4х2+9х3}, {6х1+3х2- 7х3), {3х1+2х2-4х3}} 


у = 7х — 45) 十 Das 
即 线性 变换 为 1y? = бху +3х,-7х; 。 


уз = 3xi +2x; 一 4x3 
#1518 已 知 两 个 线性 变换 


җ =2уу+ уу э =-3 +25 
ху =-2ур+3у, +2уу , | Уз = 22) +13 


ху = 4уү + уу +5уу 


求 从 变量 z,zs,z3 EIEE ху, x, х, 的 线性 变换 。 


这 两 个 线性 变换 用 矩阵 表示 为 
为 у а 
уз |+} 72 |= B| z2 
Уз j (93 23 


Ы 
2 
23 
х й 
Ш x, |= AB z, 
23 


Уз = —42 +35 


= А 
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In|]:=ClearíA, B); 
А = (02,0, 1), {-2, 3, 2}, 44,1, 5}}; 
В = {{-3, 1, 0}, (2, 0, 1}, {0, -1, 3}; 
ЧУ), (2), (3) = B-{{z1}, {22}, {z3}; 
(01), {х2}, {х3}) = А.(у1}, {y2}, (УЗ) 
Simplify[%] 
Out[]= 
(0-6 21 + 22 +3 23}, (12z1- 4z2+ 923}, (-10z1-z22+16z3)) 


xı =z; + 22 +323 
即 线性 变换 为 ху) =12z1 一 4z2 +923 o 


ху = 104) 一 z2 +1623 


实验 内 容 

1212 4 3 2 1 
练习 1 #А=|2 1 2 1] В=|-2 1 -2 1|, 
1234 0 -1 0-1 


(1) R3A-2B; 

(2) Ж #Х#ЖА+Х=В, RX, 

(3) ЖҮ ЖЕ GQA-Y)+2(B-Y)=0, RY. 

练习 2 ва-[* 中 в" 2) с- | 7 )вазав-сев, Жум» 的 值 。 
v 


了 у 
练习 3 计算 


оо 1Y6 2 -1 оро 
ШИНЕ) э з 
100i3 -5 4 0 2 
озо 
练习 4 忆 知 两 个 线性 变换 
х= у-у + 2ys i= 2 +23 
: = у +352 Ё = 2-5; 
5 =4у›- уу У =3Ф +742 


Жа, с, B| хх), ЙК, 
练习 5 ЖҮЛ ЕЕ: 
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1234 а 000 
0123 овоо 
: 2) bed +0): 
0 ort D fo a e o| 2010) 
0001 0004 
; -1 2 
3 Ë a) (ad-be #0): са {з 2 11. 
€ 1-20 
练习 6 ETIE E: 
1 1 —4JY/1 їз 1 1-1 2 
CD KI2 1 0F|43 2: 0) -2 1 1 区 =|3|。 
1-A1JU 25 1 11 6 
3 11 
练习 7 Bf rO0a)=x2-x-kA= 3 1 21 fA). 
1-10 
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实验 5-2 ”矩阵 的 初等 变换 


实验 目的 


掌握 用 Mathematica 进行 矩阵 的 初等 变换 ， 求 矩阵 的 秩 和 向 量 组 的 秩 、 向 量 组 的 最 大 无 
关 组 的 方法 。 


实验 的 基本 理论 与 方法 
向 重组 的 线性 相关 性 理论 ， 矩 阵 的 秩 。 
实验 使 用 的 Mathematica 函数 
1. Det[A]: ЖЖ A 的 行列 式 。 
2.АВ: ЖНА БЕ В HRR. 
3. RowReduce[A]: ЖЕЙ: А RITRAE. 


4. MatrixFormfBxprj: 表示 为 矩阵 形式 。 
5. Simplify[%]: 化 简 上 一 结果 。 


实验 指导 
1 -1 3 -4 3 
А 3 -3 5 -4 1 а ар 
例 5.2.4 Еа 75, 0 0 | 化 为 行 最 简 形 矩阵 。 


3 -3 4 -2 -i 
我 们 先 用 和 矩阵 的 行 初等 变换 化 矩阵 为 行 最 简 形 矩阵 。 
ENERET R: 
Tn[]-=Clear[r1, r2, r3, га]; 
rl ={1, -1,3, -4, 3}; 
r2={3,-3,5,-4, 1}; 
r3 = {2, -2, 3, -2, 0}; 
r4 = {3, -3, 4, -2, -1}; 
А = {г1, r2, r3, r4} 
下 面 对 和 矩阵 进行 行 初等 变换 ， 化 为 行 最 简 形 和 矩阵。 
In[]:=r1 
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r2=r2-3rl 
r3=r3-2rl 
r4=r4-3rl 
Out] ]= 
(1, -1, 3, -4, 3) 
10, 0, -4, 8, -8) 
(0, 0, -3, 6, - 61 
(0, 0, -5, 10, -10) 
In[]:=r1 
r2 = г2/(-4) 
r3 = r3/(-3) 
r4 = r4/(-5) 
Out[]= 
(1, -1, 3, -4, 3) 
{0, 0, 1, -2, 2) 
{0, 0, 1, -2, 2) 
0,0,1, 2, 2) 
In[]:=r1 
т2 
r3=r3-r2 
r4=r4-r2 
Out[]= 
(1, -1, 3, -4, 3) 
(0, 0, 1, -2, 2} 


(0, 0, 0, 0, 0) 
10, 0, 0, 0, 0) 
Т :=ғ1 = 1 - 3г2 
г2 
r3 
4 
Out[]= 


{1, -1, 0, 2, -3} 
{0, 0, 1, -2, 2) 
(0, 0, 0, 0, 0} 
(0, 0, 0, 0, 0} 


1-10 2 -3 
_ 00 1-2 2 
即 和 ЖЧ, 。 
8 行 最 简 形 矩阵 为 0000 
00 0 0 о 
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还 可 以 运用 函数 RowReduce[A] 可 直接 得 到 行 最 简 形 矩阵 。 

]n|[]:=Clear[r1U, r2, r3, r4]; 
rl = (1, -1, 3, -4, 3}; 
r2 = {3, -3, 5, -4, 1}; 
r3 = {2, -2, 3, -2, 0}; 
r4 = (3, -3, 4, -2, -1}; 
A = {г1, r2, r3, r4}; 
RowReduce|A]; 
MatrixForm[%] 

Ош[] 


1 -10 2 -3 
0 1 -2 2 
0 оо о 
0 оо 0 
2 1 8 3 7 
2 -3 0 -7 -5 A => 
91522 RER 3-25 8 0 的 秩 及 一 个 最 高 阶 非 零 子 式 。 
1 0 3 2 0 
In[]:=Clear[r1, r2, r3, г4]; 
гі = {2, 1, 8, 3,7}; 
r2= (2, -3, 0, -7, -5}; 
ҮЗ = {3, -2, 5, 8, 0}; 
r4 = {1, 0, 3, 2, 0}; 
А = {r1, r2, r3, r4}; 
MatrixForm [RowReduce[A]] 
Out[]= 


oco 


10300 
01200 

0001 | 

00001 

R1 2,3, 417, 1, 2, 4, 5 列 作为 矩阵 4 ， 考察 4 阶 子 式 |4|: 


Tn[]:=A = {{2, 1, 3, 7}, (2, -3, -7, -5), {3, -2, 8, 0), {1, 0, 2, 0); 


Det[AJ 
Out[]= 
196 
可 见 秩 为 4， 最 高 阶 非 零 子 式 为 
2 1 3 7 
2 -3 -7 -5 
3 -2 8 0 
1 0 2 0 
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15.23 观察 给 4 KRAAIE РЭН 4 施行 一 次 行 初等 变换 , EM: A 右 乘 一 个 
初等 矩阵 等 于 对 4 MIT 次 列 初等 变换 。 
先 看 行 的 情况 ， 首 先 定义 矩阵 4 : 
In[]:=ClearfA, ri, r2, r3, r4]; 
A = {{аП, a12, a13, a14}, {а21, a22, a23, a24}, {a31, a32, a33, a34}}; 
再 定义 初等 第 阵 B, B, B3: 
In[]:=r1 = (1, 0, 0}; r2 = (0, 1, 0}; r3 = {0,0,1}; Се УШ КИТ ИГЕ * ) 


ВІ = {г1, r3, r2}; (ZR 2 317 +07 
В2 = (г1, r2 - r3, r3}; ( *Я 3 15980-1 加 到 第 2 行 *) 
ВЗ = {r1, Sr2, r3}; (* 第 2 行 乘 以 5* ) 
FERA AZRA RB: 
In[J:=MatrixForm[(B1.A] 
ОшП= 


a31 a32 a33 a34 


[= al2 al3 а14 
а21 a22 a23 а24 


TA, BAA 等 于 将 4 交换 第 2，3 行 后 所 得 矩阵 。 观 察 耻 ; ХВА: 
]n[]:=MatrixForm[B2.A ] 


Out[]= 
all а12 a13 а14 
(azian a22- a32 a23- a33 oa] 
a31 a32 a33 a34 


BA 等 于 将 4 的 第 3 行 乘 以 -1 后 加 到 第 2 行 所 得 矩阵 。 观察 B АЗЕ A: 


Tn[]:=MatrixForm[B3.A] 
Out[]= 
all al2 al al4 
Е 5а22 5а23 sa] 
al a32 a33 аз4 
B34 等 于 将 4 MB 217980 5 后 所 得 年 阵 。 
下 面 看 列 的 情况 ， 定 义 初等 矩阵 ,8，B, : 
ш[]:=С1еаг{г1, r2, r3, r4, B1, B2, B3]; 
r1 = (1, 0, 0, 0); 
г2 = (0, 1, 0, 0}; 
T3 = (0, 0, 1, 0}; 
r4 = (0, 0, 0,1}; 
HU:=S1 = {rb r3,r2 rdj 《+ 交换 第 2，3 列 *》 
MatrixFormí(B1] 
Out[]= 
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In[]:=B2 = {r1, r2 + 213, 13,74);  (*26 2 列 乘 以 2 后 加 到 第 3 #J*) 
MatrixForm[B2] 


1000 
0120 
0010 
0001 
In{]:=B3 = {г1, -3r2, r3, r4}; (#8952 列 乘 以 -3*) 


MatrixForm[B3] 
Out[]= 


1000 
0-3 00 
0 0 10 
0001 
IR A HIRD BI: 
Tn[]:=MatrixForm[A,B1] 
Our[]= 
Ë al3 а12 а) 


а21 a23 a22 a24 
a3l a33 a32 a34 


TA, AB 等 于 将 4 的 第 2 列 与 第 3 列 交换 所 得 矩阵 。 观 察 8, ARA 以 : 
In[]:=MatrixForm[A.B2] 
Out[]= 
all а12 2а12+а13 а14 
а21 а22 2а22+а23 а24 
азі a32 2a32+a33 a34 
AB, 等 于 将 4 的 第 2 列 乘 以 2 后 加 到 第 3 列 所 得 矩阵 。 观 察 В, ДЕА: 
Ini]:=MatrixForm[A.B3] 
Out[]= 


Ë -3а12 al3 | 


а21 -3a22 a23 a24 
a31 -3а32 a33 аза 
AB; 等 于 将 4 的 第 2 列 乘 以 一 3 后 所 得 矩阵 。 
例 5.2.4 求 下 列 向 量 组 的 一 个 最 大 无 关 组 ， 
а, = 020,az = (12,0),а = (213,0),а„ =(2,5,-14) ,as = (1,-1,3,-1) 
将 向 量 组 作为 矩阵 4 的 列 向 量 组 ， 即 
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Mor 
ou 


ЖЕН А: 
In[]:=Clear{al, a2, a3, a4, a5]; 
al = {1, 0, 2, 1}; a2 = {1, 2, 0, 1}; a3 = {2, 1, 3, 0}; 
a4 = {2, 5, -1, 4}; a5 = (1, -1, 3, -1}; 
А = Transpose[[al, a2, a3, ad, а5}]; 
MatrixForm[A] 
Out[]= 
{11 
02 
2 0 
11 


将 4 化 为 行 最 简 形 矩阵 ; 
ш[}:=Майш1хЁогт [RowReduce[A]] 
Out[]= 


1 
-1 

3 
-1 


3 -1 
-1 1 
0 0 0 
可 见 4 的 列 向 量 组 的 秩 为 3， 最 大 无 关 组 为 a1 ,az,a3 。 
例 5.2.5 试 证 由 a = (0li)a, =(L01)a, = 人 10) 所 生成 的 向 量 空 间 就 是 Rs。 
验证 ai a, a 线性 无 关 : 
In[]:=Clear[À, al, a2, а3]; 
al = {0, 1, 1}; a2 = {1, 0, 1}; a3 = {1,1,0}; 
А = {al, a2, a3}; 
Det[A] 
Onut[]= 
2 


0 
0 
1 
0 


0 
1 
0 
0 


即 |4|¥0， А КИТЕ а, а, ,es 线性 无 关 ,4 个 三 维 向 量 线性 相关 ， 因 而 任意 三 维 向 量 


都 可 以 用 这 3 个 向 量 线 性 表示 ， 故 所 生成 的 向 量 空间 就 是 R?。 

例 526 1а, =0.-10)а, =(213)as=G.42) 为 R 的 一 个 基 ， 并 把 mW =(507) ， 
v2 = (9 一 8 一 13) 用 这 个 基线 性 表示 。 

设 e1,e2,e3 是 基本 单位 向 量 ， 


1-10 s o 7 
A=|2 1 3 z5 8 В) 
3 1 2 T7 o5 oT 
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则 有 关系 


(а|,а,.ау)= (e122,63)AT 
(е\›ез,ез) = apana XA!) "1 
(91,92) = (eer,e3)BT = (81,83,03 XAT) TBT 


EXER, ар: 


In[]:=Clear[A, В]; 
A = {{1, -1, 0}, (2,1,3), {3,1,2}; 
B = {{5, 0, 7}, {-9, -8, -13}}; 
ре А] 
Out[]= 
-6 
WERE А 可逆。 再 输入 
In[]:={fel, e2, e3} = {a1, a2, а3). Іпуегѕе[Тғапѕроѕе[А]); 
{v1, v2} = (е1, е2, e3}.Transpose[B]; 
Simplify[%] 
ОшП= 
{2а1+ 3a2- a3, За1-3а2-2а3} 


B p = 2a +343 as 


pa = 3a; —3a, 一 203 


也 可 以 按照 如 下 方法 求解 。 先 将 el ,az,ea, wy va EADE, RHEE M; 
In[}:=Clear[A, В]; 
A = {{1, -1, 0}, (2, 1, 3}, (3, 1, 25 
B = {{5, 0, 7}, {-9, -8, -13}}; 
М = Transpose[Join[A, В]]; 
MatrixFormi %] 
Out[]= 
1 235 -9 
Е 110 -8 | 
0327-13 
再 将 矩阵 M 化 为 行 最 简 形 和 矩阵; 
In[]|:=MatrixForm[RowReduce[M]] 
Out[]= 
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01002 3 
0193 -3 | 
10 0 1 -1 -2! 
即 得 v =2а| +34) ~аз 
v, = 34, —3а›-2аз 
#1527 itb =а +a,, b, =a, +аз, by =a, +44: b, =a; +a, 证 明 向 量 组 bi,b2,by,ba 
线性 相关 。 
设 kib, tkaby +В +В = 0 
即 kila; tas)+ klar tas)+k,(as +aa)+kalaa +a,) = 0 
或 (十 下 ai 十 (大 + ko)az + (ks + ka)a3 +(k3 +k )a, =0 
下 面 考察 方程 组 
kitka =0 
后 + =0 
+6, = 0 
katka =0 


Tn[]:=Solve[(k2 + k3 == 0, k3 + k4 == 0, КІ + k4 == 0,k1 + k2 == 0}, 


{k1, k2, k3, k4}] 
Out[]= 


((kl> -k4, k2 > k4, K3 > -k4)) 


ЖЕПЛУ РЗИН, b,b, bah, 线性 相关 。 


还 可 以 采用 如 下 方式 证 明 。 
设 (b..b,..b.,b,)=(a,.a,,a,.a,)A 
其 中 
1001 
A= 100 
0110 
0011 
我 们 知道 R(b1,b2,b3,ba) < min [R(A), К(а,0,43,а4)) 


因此 ， 车 RC4)<4， 则 RD,52,53,54) <4, ШИГ ЕНЕН b, babs, b 线性 相关 。 
In0:=A = {{1, 0, 0, 1}, {1, 1, 0, 0}, {0, 1, 1, 0}, 0,0,1, 1H; 


Det[A] 
Out[]= 
[0] 


[4] =0, W к(а) <4， 证 毕 。 
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实验 内 容 


1 -1 2 0 
2-24 2 0 - " 
练习 1 将 矩阵 0 в 1 RAE, 
0 3 001 
练习 2 REIER: 
0 1 1-12 l4 12 6 8 2 
2102220) 0) |6 104 21 9 1 
0-1-1 1 1 7 6 3 41 
1 1 0 0 =- 35 30 15 20 4 


练习 3 求 下 列 向 量 组 的 一 个 最 大 无 关 组 : 
С) а =(431), а =(-11,-13), аз =(5,—28,—9), a4 =(=1,3,,7) : 
(2) ау =(11,2,3), а= (1-1, а; = (133,5), а; =(4,—2,5,6), as = (-3,—1,-5,-7) > 
练习 4 Бяс, c. HAED b bh НАНТ 
су =3b —b, +b, 
e; =b, +2b, + 4b, 
向 量 b1,5,63 由 向 量 41,92,43 的 线性 表示 式 为 
b, =2a) +a, -583 
b, =a) +3a; +as 
b, =—a +445 —as 
ARE cuc 由 向量 @l,ay,as 的 线性 表示 式 。 
练习 5 判断 下 列 向 量 组 是 线性 相关 还 是 线性 无 关 : 
(1) а =(10,-), a; =(-22.0) ， аз = (3,-5,2) : 
(2) а =(11,31), а, =(3,-1,2,4), аз = (2,2,7,-1) o 
练习 6 如 果 向 量 组 ааа, 线性 无 关 ， 证 明 向 量 组 ai ,el +a, a +a, +a, 线性 无 关 。 
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实验 5-3 ” 解 线性 方程 组 


实验 目的 
掌握 用 Mathematica 求解 线性 方程 组 的 方法 。 
实验 的 基本 理论 与 方法 


1. n 元 齐 次 线性 方程 组 4x = 和 有 非 零 解 的 充 要 条 件 是 RC4)<m。 

2. n 元 非 齐 次 线性 方程 组 Ax =b 有 人 解 的 充 要 条 件 是 R(4)= R(B) = (В ЙГЕ), Ч 
r=n 时 ,方程 组 有 惟一 解 ， 当 +<n 时， 方程 组 有 无 穷 多 组 解 。 

3. 克 莱 姆 (Cramer) 法 则 。 

4. 用 和 矩阵 的 初等 变换 求解 线性 方程 组 。 


实验 使 用 的 Mathematica 函数 


1. Det[A]: 求 4 的 行列 式 。 

2. Inverse[A]: ЖА ЯЕ Е. 

3. А.В: ЖЕ A, B 的 积 。 

4. RowReduce[A]: K A КТА НЕЕ, 

5. LinearSolve[A,b]: 给 出 方程 组 Ax = b 的 解 向 量 。 
6. NullSpace[A]: 给 出 方程 组 Ах = 0 的 基础 解 系 。 
7. MatrixForm[Expr]; 表示 为 矩阵 形式 。 


实验 指导 


例 5.3.1 求解 齐 次 线性 方程 组 


Xy +2x, +2x3 +x4 =Ü 
2x +x — 2x4 -2x4 =0 
ATX, -413-3х,=0 。 
In[]:=Clear[A]; 
A={{1,2,2,1},{2,1,-2,-2},{1,-1,-4,-3}}; 
x=(x1,x2,x3,x4); 
RowReduce[A] 
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Outl]= 


HL 0,-2, -2). {0, 1,2, 2), 10, 0, 0, 02} 
由 输出 结果 知 方程 组 系数 第 阵 的 秩 为 2， 故 方程 组 有 无 穷 多 解 且 基 础 解 系 
量 。 


In[]:=NullSpace[A] (+ 3 
Out[]= 


РӘ 2 个 解 向 
方程 组 的 基础 解 系 * > 


445, -4, 0,3}, (2, -2, 1, 0}} 
故 方程 组 的 通 解 为 


ЕЯ 5 2 
-4 一 2 
2 le +c, (cucz 是 任意 常数 ) 
хз 0 1 
х 3 0 


例 5.3.2 求解 非 齐 次 线性 方程 


x —2xX2 +3x3 一 24 =1 
Š. —X2 +5x3 ~3x4 = 2 
2x) tx, +2X -2x4 =3 o 
求 系数 矩阵 的 秩 : 
Ta[]:=Clear[A] 
A={{1,-2,3,-1},{3,-1,5,-3},{2,1,2,-2}} 
MatrixForm[RowReduce[A]] 
Ощ]= 


求 增 广 矩 阵 的 秩 : 
In[]:=Clear[B] 
B={{1,-2,3,-1,1},{3,-1,5,-3,2},{2,1,2,-2,3}} 
RowReduce[B]; 


MatrixForm[%] 
Out[]= 


系数 矩阵 的 秩 不 等 于 增 广 矩阵 的 秩 ， 故 方程 组 无 解 。 
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另外 也 可 以 使 用 LinearSolve Á ZORE. 
In[}:=A={{1,-2,3,-1},{3,-1,5,-3},{2,1,2,-2}}; 
b={1,2,3} 
LinearSolve[A,b] 
Out[]= 
LinearSolve::nosol : Linear equation encountered which has no solution. 
信息 提示 方程 组 无 解 。 
例 53.3 求解 非 齐 次 线性 方程 组 


хрх) —X3 + x a = Ü 
хрх +X, 一 3Y4 =1 


1 
Xi Xa -2х3 +3ха = ° 


先 求 系数 矩阵 和 增 广 矩 阵 的 秩 : 

In[]:=Clear[B] 
Baæf{1,-1,-1,1,0},{1,-1,1,-3,1},{1,-1,-2,3,-1/2}} 
MatrixForm[RowReduce[B]] 

Out[]= 
1-10-17 
001-24 
0000 0 
因此 ， 系 数 和 矩阵 的 秩 与 增 广 短 阵 的 秩 都 等 于 2， 故 方程 组 有 无 穷 多 解 。 
下 面 求 方程 组 的 遂 解 。 先 求 方程 组 的 一 个 特 解 : 

TIn[]:=b=(0,1,-1/21; 

LinearSolve[A,b] 

Out[]= 


1 1 
[5.92.9 
再 求 对 应 齐 次 方程 组 的 基础 解 系 : 
In[]:=NullSpace[A] 
Out[]= 


{{1, 0,2,1), (1, 1, 0, 0) 
故 方程 组 的 通 解 为 


《cucz 是 任意 常数 ) 


还 可 以 用 Solve 函数 求解 ， 
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In[]:=Ciear[A, al, a2, a3, b]; 
al = {1,-1,-1, 1}; a2 = {1, -1, 1, -3}; a3 = (1, -1, -2, 3}; 
b = {0, 1, -1/2}; x = {{x1}, {x2}, {x3}, {x4}; 
A = {а1, a2, a3}; 
Solve[A.x == Transpose[{b}, {x1, х2, x3, x4}] 
Out[]= 
[ba 1 Q. xa, 3 > 1 +2x4}} 
2 2 
由 输出 结果 知 х,,х, 为 白 由 未 知 量 ， 故 方程 组 的 通 解 为 


1 1 
1 agta tez x, = Cp 5 = y t2cy, X4 = C, 


81534 没有 线性 方程 组 


(I+À)xi +x; +x =0 
XV +(1+ÀA)x; +ху = 3 
Xi tx +(1+À)x =А 。 


问 4 取 何 值 时 ， 此 方程 (1》 有 惟一 解 ; O) ER: (3) 有 无 穷 多 个 解 。 在 最 后 一 种 情况 下 ， 
先祖 定 4 的 值 ， 使 系数 行列 式 为 零 。 
ш[:=А ={{1 +t, 1, 1}, {1, 1+ t, 1}, {1, 1, 1+ t}; 
Solve[Det[A ] == 0, t] 
Out[]= 
0005 -3), (t> 0}, {t> 0}} 
可 见 ， 当 4#-3,4 关 0 时 ， 系 数 行列 式 不 等 于 零 ， 方 程 组 有 惟一 般 。 
In[]:=Clear[x1, x2, x3, x4, t]; 
Solvel((1 + 0х1 + х2 + x3 == 0, x1 + (1 + t)x2 + x3 == 3, 
XI + x2 + (1 + 0х3 == t), {x1, x2, х3}] 


下 面 讨论 4 = -3 时 方程 组 的 解 。 
In[J:=Clear[x1, х2, x3, ха]; 
t=-3; 
Solvelí(1 + Юх1 + х2 + x3 == 0, x1 + (1 + t)x2 + x3 == Я 
XI + x2 + (1 + 0х3 == t), {х1, x2)] 
Out[]= 
00х19 -1 + x3, X2 > -2 +x3}} 
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可 见 ， 当 1=-3 时 有 无 穷 多 解 . Фху=с. HERTHA 


Ë = te (为 任意 常数 ) 
ху=-2+с 
最 后 讨论 和 =0 的 情况 。 
Tn[]:=Clear[x1, x2, x3, x4]; 
t=0; 
Solvel[(1 + tix1 + х2 + х3 == 0, x1 + (1 + t)x2 + x3 == 3, 
х1 + x2 + (1 + t)x3 == t}, (х1, х2, х3}] 
Out[]= 
0) 
即 当 4=0 时 ， 方 程 组 无 解 。 
例 5.3.5 ”利用 克 莱 姆 法 则 求解 线性 方程 组 


хү-ху-Ху=2 
2х—ху—3ху=1 


3 +2ху-5ху=0 。 


i -1 -1 2 
A=|2 -1 -3|, b=|1 
3 2 -5 0 


2 -1 -1 
令 | -I s (Hb RE ARBI 


则 方程 组 可 以 表示 为 4X =b. 


= 

кэ 
1 

^ 


1 2 -1 
-f 1 -3| Œb 代替 4 的 第 二 列 ) 


1-12 
s -1 1) 《用 4 代替 4 的 第 三 列 ) 


由 克 莱 姆 法 则 可 得 


= А = Ка lAs] 
= 
M 四 А 
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та[]:=а1 = (1, 2, 3}; a2 = [-1, -1, 2}; аз = {-1, -3, -5}; b = (2, 1, O}; 
А = Transposeí (al, a2, а3}]; 
A1 = Тгапѕроѕе[{Ь, a2, а3}]; 
А2 = Transposel[al, b, a3}]; 
АЗ = Transpose[{al a2, b)]; 
хі = Det[A1]Y/Det[A] 
х2 = Det[A2)/Det[A] 
х3 = Det[A3]/Det[A] 
Out[]= 
5 
0 
3 
即 方程 组 有 惟一 解 x =5,x, =0,ху =3。 
815.36 ”利用 道 和 矩阵 求解 线性 方程 组 


X) +X) txs 十 X4 =5 

X, +2x; — Ху +4x4 = —2 
x1 —3x; — x, —5x, = —2 
Эх tx, +2% +15; =0 。 


设 
11 1 1 5 
1 2 — 4 -2 
А= ， b= 
1 -3 -I -5 -2 
31 2 1 0 


则 方程 组 用 矩阵 表示 为 hx = Б. аео, ЛА й, 方程 组 有 惟一 的 解 x = A 。 


定义 矩阵 4 ， 并 计算 其 行列 式 。 
In[]:=Clear[A, xt, х2, х3, х4]; 
A = ((1, 1, 1, 1), (1, 2, -1, 4), (2, -3, -1, -5), (3, 1,2, 11); 
Det[A] 
Out[]= 
-142 
求 方程 组 的 解 。 
Tn[]:=b=((5), (-2), {-2}, (0): 
Inverse[A].b 
ош 
41}, (2), (3), (-1)) 
即 方程 组 的 解 为 xr =1,x; = 2, dx =-1., 


实验 内 容 


练习 上 求解 下 列 齐 次 线性 方程 组 。 


X4 — 2x3 + Xs — X4 + Xs = Ü 


д2 +45 — Tua =Ü 2x +a саз + 2x4 —3xs == 0 
(1) 42x +x 一 2x3 +х4 ; (2) 3 
Lax, =0 Зх —2x; — Xs + X I -2X5 = 
За = s +зу-4щ= 2җ -5ху + X3 — 2x4 +2ху =0 
хү-2х›+ху+ху—-Ху=0 
(3) 23 +2) — x3 — x4 +Xs = Ü А 
ху+7х – 5х: —5x i +55 =0 
3x - х. -2х3 + x 4 — Xs = Ü 
练习 2 求解 下 列 非 齐 次 线性 方程 组 。 
x +3x> +5xy 一 4x4 =1 
X +X) +X +X 4 + Xs =7 ü 270737024 
ху + 3x; +258 — 254 + xs = —1 
Зх, + 2х5 +Xs +X 一 3xs = —2 
a) ; (2) ух — 2x + x3 — x4 — Xs =3 ° 
X; +2ху +2x4 十 6xs = 23 
хү-4ху + Xs + X  — Xs = 3 
блу + 4х: —3x; +3x4 — xs =12 


X + 2ху +X — X, +X =—1 


(2-А)х+2х, —2ху=1 
练习 3 设 {2җду+(5-А)х;-4%=2 ， 问 和 为 何 值 时 ， 此 方程 组 有 惟一 解 、 无 解 、 
-2x 一 4xa +(5—-А)ху=-А-1 


有 无 穷 多 解 ? 并 求 其 解 。 
练习 4 用 Cramer 法 则 求解 线性 方程 组 。 


2x, + x, —5x + x4 =8 


x = 32, 一 6X4 = 
2x, -x3 +2x4 =—5 
д +4ху — 7x3 +6 =0 


练习 5 ЯЙ ЖЖ АЕЛЕЯ. 


X +X; +X, +X =0 
X, tX; +X + X, =Ü 
з (2) уху+ 2х) +353 =2 
х + 2x3 +34 = 一 2 
Ху + 2х4 +32; =2 


2х|+2ху-ху+ x4 = 4 
4х +3x3 — x3 +2x4 = 6 
8x +3xa – 3х3 +4x4 =12 
Зх +3r – 253 -2x4 =6 


(1) 
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实验 5-4 ”相似 和 矩阵 及 二 次 型 


实验 目的 


WHF Mathematica 求 答 阵 特征 值 、 特 征 向 二 的 方法 。 
ЖШ Mathematica 将 矩阵 对 角 化 的 方法 。 
3， 人 掌握 用 Mathematica 将 二 次 型 化 为 标准 形 的 方法 。 


实验 的 基本 理论 与 方法 


特征 值 、 特 征 向 晤 的 概念 和 计算 方 泪 。 
‚ 印 媳 可 对 角 化 的 条 件 和 结论 。 

， 施 密 特 正 交 化 方法 。 

.二 次 型 化 为 标准 形 的 方法 。 

.不定 二 次 型 的 判别 方法 。 


D шә = 


实验 使 用 的 Mathematica 函数 


1. Eigenvalues[A]: ЖА ШИ. 

2. Eigenvectors[A]: RA 的 特征 向 量 。 

3. Transpose[{pl, p2, p3)]: RERE (ру. р, рз) 的 转 置 矩阵 。 

4. Inverse[P]: SR P ЖЕ 

5. JordanDecomposition[A]: Ж А 的 相似 变换 矩阵 及 若 当 标准 形 。 


实验 指导 
1 1 —1 
01541 RARR ERATE aana 9 | Eat. 
l 1 O 


定义 向 最 : 
In[]:=Clear[al, a2, a3, b1, b2, b3]; 
al = {1,0,-1,1}; а2 = (1, -1,0, 1}; 
а3 = {-1,1,1,0}; 
下面 利 用 施 密 特 正 交 化 方法 ， ЗГОДНО а,,аз,аз ПЕЛЕНИН В, „Б, bs: 
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In[]:=bl = al 
b2 = a2 - b1.a2/b1.b1 bl 
b3 = a3 - bla3blbl bl - b2.a3/b2.b2 b2 
Out[]= 
(1, 0, -1, 1) 


1 3 3 4 
(053.5) 


FRU b b,b 两 两 正 交 : 


In[]:=bL.b2 
b2.b3 
b3.b1 

Out[]= 
0 
0 
0 

例 5.4.2 Ж КУЙЕБЕ ETA EXER. 
1 8 4 
9 9 9 
a 1-5 1 _4 
° 9 9 
4 4 7 
9 9 9 


In{]:=Clear[al, a2, a3]; 


a1 = (19, -8/9, -4/9); a2 = (-8/9, 10, -409}; a3 = {-4/9, -4/9, 79]; 


A=ą{a1,a2,a3}; 
MatrixForm ['Transpose[A].A] 
ОшП= 
100 
| 01 o] 
001 
T AEREE ЕНЕ, 
1 1 1 1 
2 2 2 2 
-1 1 1 1 
mwl + 2 2 
一 一 0 0 
2 у? 
ЖЕЛ 
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In[]:=Clear[al, a2, a3,A]; 
al = {1/2, 1/2,1/2,-1/2); a2 = (-1/2, 1/2, 1/2,1/2}; 
аз = {1/2^(1/2), 1/2^(1/2), 0, 0}; a4 = {0,0,1/2^(12), 1/2A(1/2)) 
A={a1,a2,a3,a4}; 
Тгапроѕе[А].А ; 
MatrixForm [%] 
Out[]= 


E ne о wl 


© mne e ni 
ne e ыы © 


2 
可 见 ， 和 矩阵 不 是 正 交 矩阵 。 
例 5.43 求 下 列 矩 阵 的 特征 值 和 特征 向 量 ， 并 判别 可 否 对 角 化 。 


1 2 3 
02 2 1 3 
3 3 6 


In[]:=A = {{1, 2, 3}, (2, 1, 3}, (3, 3, 6}}; 
Eigenvalues[A] 
Eigenvectors[A] 
Out[]= 
{-1, 0, 9} 
{{-1, 1, 0}, (-1, -1, 1), (1, 1, 2)) 


即 特征 值 分 别 是 一 1,，0, 9, IRRE БЕЛУ ЛЕ 110)", (1-117, 01.27, TAARE АЛЕ 
在 3 个 线性 无 关 的 特征 向 量 ， 故 可 以 对 角 化 。 

-1 1 0 

(02) |-4 3 0 


1 0 2 


In[]:=Clear[A]; 
A = {{-1, 1, 0), {-4, 3, 0), (1, 0, 2}}; 
Eigenvalues[A] 
Eigenvectors[A] 
Out[]= 
{1,1,2} 
(0-21, -2, 1}, (0, 0, 0), (0, 0, 1}} 
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特征 值 分 别 是 1，1，2， 对 应 的 特征 向 量 是 (-1-2.07,(000)7 。 可 见 矩阵 4 不 存在 3 个 线性 无 
关 的 特征 向 盘 ， 故 不 能 对 角 化 。 


(3) а, аз аз а), Ж ajaaa #0 


In[]:=Clear[A, al, a2, a3, a4]; 
A = {{a1, a2, a3, a4}}; 
В = Тгапѕроѕе[А].А; 
Eigenvalues[B] 
Eigenvectors[B] 
Out[]= 
(0, 0, 0, а12+ a2? + a3? + a42) 
Out[]= 
a4 аз 
(5901р LE 9, 1, 0), 
a2 al а2 аз 
LELO 0}, (=: a a Н) 
由 上 面 计算 得 到 ， 特 征 值 分 别 是 = 和 =4=0,44 =a? +a? +a2+a? ， 对 应 的 特征 向 量 分 唱 
是 


а 
9 _4з _42 а 
а] а, a, аз 
m= ° ор;=| © p m= 1 | p.=| a4 
0° 1 0 аз 
1 0 0 а 
1 


故 可 以 对 角 化 。 
例 5.44 试 求 一 个 相似 变换 矩阵 ， 将 下 列 矩 阵 化 为 对 第 矩阵 。 


先 求 4 的 特征 值 和 特征 向 量 : 
In[]:=Clear[A]; | 
A = {{-2, 1, 1}, {0, 2, 0}, {-4, 1, 335 
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Eigenvalues[A] 
Eigenvectors[A] 
Out[]= 
{-1, 2, 2) 
Out[]= 
(01, 0, 1}, (1, 0, 4}, (1, 4, 0}} 
即 4 有 3 个 线性 无 关 的 特征 向 量 ， 可 以 对 角 化 ， 以 这 3 个 特征 向 量 为 列 向 量 的 矩阵 即 为 相似 
变换 矩阵 已 。 
In[]:=Clear[p1, p2, p3]; 
р1 = (1, 0, 1};р2 = (1, 0, 4};р3 = (1, 4, 0}; 
P =Transpose[(p1, p2, p3}] 
Out 由 = 
{{1, 1, 1), (0, 0, 4), (1, 4, 0}} 
即 相似 变换 矩阵 为 


FERE PAP = 4 为 对 角 阵 。 
In[]:=Inverse[P].A.P; 
MatrixForm [%] 
Out[]= 


-100 
оза) 
0 02 


即 对 角 阵 为 


也 可 以 输入 程序 直接 得 到 相似 变换 矩阵 和 对 角 和 矩阵; 
In[]:=Clear[A]; 
A = {{-2, 1, 1}, {0, 2, 0}, {-4, 1,3}; 
JordanDecomposition[A ] 
Out[]= 


fff1 1, 1}, (0, 0, 4), (1, 4, 0)), 
{{-1, 0, 0), (0, 2, 0}, (0, 0, 2))) 
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例 5.4.5 试 求 一 个 正 交 的 相似 变换 矩阵 ， 将 EIEE MALAI AERE 


ЖЖ А 的 特征 值 和 特征 向 量 : 

In|[1]:=Clear[A ]; 
А = {{2, 2, -2}, {2, 5, -4}, {-2, -4, 5}; 
Eigenvalues[A ] 
Eigenvectors[A ] 

Out[]= 
(1, 1, 10} 

Out[]= 
(02, 0, 13, (-2, 1, 0), (-1, -2, 2}} 

可 见 4 有 3 个 线性 无 关 的 特征 向 量 ， 即 可 以 对 角 化 。 下 面 将 特征 向 量 正 交 单位 化 ; 

In{]:=Clearfal, a2, аЗ, b1, b2, b3]; 
al = (2, 0, 1}; a2 = {-2, 1, 0}; a3 = {-1, -2, 2}; 
bl =al; 
b2 = a2 - b1.a2/b1.b1 bl; 
ЪЗ = a3 - b1.a3/b1.b1 bl - b2.a3/b2.b2 b2; 
р1 = b1/Sqrt[b1.b1] 
p2 = b2/Sqrt[b2.b2] 
p3 = b3/Sqrt[b3.b3] 


Out[]= 
2 1 
{жеу} 
-+ ”5 -4 
зуб 3 '3V5 
1 2 2 
(53.2575) 


以 向 量 рү, ро, ps 为 列 向 量 的 矩阵 即 为 正 交 相似 变换 矩阵 。 
In[]:=P = Transpose[(p1, p2, p3}] 


Out[]= 
2 2 1 V5 2 1 4 2 
C ЗГ 2. Сд E 
ВЕЗАНУ ЕВЕ p 为 
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2 _2 l 
б 38 2 
5 2 

P30 3 73 
1 4 2 
ж 3⁄5 3 


ШЕЙШЕ РАР = 4 为 对 角 阵 : 
In[]:=Inverse{Pl.A.P; 
Simplify[ %] 
Out[]= 
(021, 0, 0), (0, 1, 0), (0, 0, 10)) 
015.46 求 一 个 正 交 变换 将 下 面 的 二 次 型 化 成 标准 形 : 


f = x) +x3 +хў + X1 20у) — 2X1X4 —2x2X3 十 27374 


二 次 型 了 的 矩阵 


先 求 4 特 征 值 特征 向 量 。 
Tn[]:=Clear[A]; 
A = {{1, 1, 0, -1}, {1, 2, -1, 0}, (0, -1, 1, 1}, {-1, 0, 1, 1}; 
Eigenvalues[A] 
Eigenvectors[A] 
ОшП= 
{-1, 1, 1, 3} 
Out[]= 
(01, -1, -1, 1), (0, 1, 0, 1), (1, 0, 1, 0}, (-1, -1, 1, 1H 
再 将 特征 向 明正 交规 范 化 。 
In[]:=Clear[al, a2, a3, a4, b1, b2, b3, b4]; 
al = {}, -1, -1, 1};a2 = (0, 1, 0, 1};а3 = (1, 0, 1, 0};a4 = {-1, -1, 1, 1}; 
bl =al; 
b2 = a2 - bl.a2/bl.bl b1; 
b3 = аз - bl.a3/b1,b1 bi - b2.a3/b2.b2 b2; 
b4 = a4 - bl.a4/b1.b1 1 - b2.a4/b2.b2 b2 - b3.a4/b3.b3 b3; 
pl = b1/Sqrt[b1.b1] 
P2 = b2/Sqrt[b2.b2] 
P3 = b3/Sqrt[b3.b3] 
P4 = b4/Sqrt[b4.b41 
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2 21212 
以 向 量 ру, рә, ps, pa 为 列 向 量 的 矩阵 即 为 正 交 变换 矩阵 P， 下 面 验证 4 可 对 角 化 。 
In[]:=P =Transpose[(p1, p2, p3, p4)] 
了 B=Inyerse[P].A,P; 


Simplify[%] 
Out[]= 
1 1 1 1 1 1 
{5 J hz; = ° -5) 
1 1 11 /1 1 1 
Lae = sl ш ут ©!) 
ОшП= 
(0-1,0, 0, 0), {0, 1, 0, 0), {0, 0, 1, 0}, (0, 0,0, 3}) 
下 面 验证 /可 化 为 标准 型 ; 


Tn[J:=[(x1), {х2}, {х3}, (x4)) = P.([y1), {у2}, {y3), (y4)) 
f = (x1, х2, x3, х4}.А {х1}, {х2}, {x3}, {x4}}; 


Simplify[ 9%%] 
Out[]= 
yl уЗ y4 yl y2 y4 
IE ` ЗУ у =] 
yl уЗ y4 yl y2 yd 
a 2 С zH 
{-Y12+y22 +Y32 + зу?) 
即 所 求 的 正 交 变换 为 


1 1 1 
aa» ta” "Z 


m= Ly + L ylys 
2 V2 2 

з --1у ++ Уз + 
2 8° 2 


1 1 1 
м=улз t” +224 
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ЖЕ KORENE 7 = 一 y+ у} + уў +3y2 ° 
#1547 判别 下 列 二 次 型 的 正定 性 。 
(1) f=-2x7 6x2 —4x2 + 2x 十 2 区 z 


之 次 型 了 的 矩阵 


下 面 分 别 求 À ШЕЙГЕ: [дА А]: 


In[]:=Clear[A]; 
А = {{-2, 1, 1}, (1, -6, 0}, {1, 0, -4}}; 
А1=-2 
A2 = {{-2, 1}, {1, 46}; 
A3=A; 
Det[A2] 
Det[A3] 
Out[]= 
-2 
Out[]= 
11 
Ош{]= 
-38 
和 的 主子 式 分 别 为 -2411-38, 可 见 二 次 型 是 负 定 的 。 


(2) f =a? +325 +9x +19x1 —2x1x2 +4X1Xa + DX Ng — xa X4 +12XyX4 o 


二 次 型 了 的 矩阵 
1 -12 1 
一 1 一 
A= 3 0 -3 
2 0 9 6 
1 -3 6 19 


ШТЭЭ А НИЕ 0 |а, а Аз: 


In[]:=Clear[A1; 
A = {{1, -1, 2, 1}, {-1, 3, 0, -3}, {2, 0, 9, 6}, (1, -3, 6, 19}}; 
Al=1 
A2 = {{1, -1), {-1, 3}}; 
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АЗ = (1, -1, 2}, {-1, 3, 0}, (2, 0, 9}}; 
А4=А; 
Det[A2] 
DetfA3] 
Det[A4] 
Outf]= 


即 4 的 主子 行列 式 分 别 为 1,2,6,24, 故 二 次 型 是 正定 的 。 


实验 内 容 
练习 1 将 下 列 向 量 组 正 交 化 。 
(10) ay =(122,-0)7,а, = (11,—5,3)7,аз =(328,-7)Т; 
(2) а,=(@,-2,2)7,а, =(-10,—1)7,а, = (3-7)T。 


练习 2 ЖАТАН ЕЕ. 


1 -1 工 

35 1 2 3 

CD 2-| 2 2h g=- 1 1|, 
°: Á 02102 
А Е 


0) 


1-1-1 1 
练习 4 判别 下 列 抵 阵 是 否 可 以 对 钊 化 ， 若 可 以 对 角 化 ， 出 求 相似 变换 矩阵 和 对 角 阵 。 


3 1 -1 10 4 6 0 
o ah, А} (2) 4=|-4 3 0l; (3) 4=|-3 —5 0f. 
102 -3 -6 1 
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练习 5 R—-EA AO EBR, HFI EREA R AERE. 


1 -2 0 2 -2 0 
(1) A=|-2 2 -2|; (2) 4=|-2 1 -2|。 
0 -2 3 0 -2 0 


练习 6 求 一 个 正 交 变换 可 以 将 下 列 二 次 型 化 成 标准 形 。 
(1) f=2x7 +3хЇ +3хў +4хуху: 

(2) f =2xux – 203: 

(3) у= х0 +222 +32 -4хүх, — 4х) o 

练习 7 求 a 的 值 ,使 下 面 的 二 次 型 为 正定 二 次 型 。 


(1) f=x+x+5x] +2ахух; -2җуху + 4x2x3 ; 


(2) f=5x? +x2 tax +4хүх, -2x3 —2хуху» 


附录 ”常见 空间 曲面 的 参数 方程 


一 、 平面 的 参数 方程 


PË Ме (хе, Yo zo) Е.а = {,ту,п, } ,b= 人 12,m2,n2} 平 行 的 平面 方程 为 


у= ур tum +ym, 其 中 u,v 为 参数 。 


x= xg +ull +vl; 
Z= zo tu + vny 


二 、 球面 的 参数 方程 


(1) RE +y +: =R? 的 参数 方程 为 


y=Rsin0sing ， 其 中 0<0<n,-ns9<n 为 参数 。 


x= Rsin 0 coso 
z = Rcos8 


(2) RE a-r) +(y-yo)2+(z— zo)? =R 的 参数 方程 为 


y= yo + Кіп Өѕіпф, 0<0<п-лхф<п APM. 
Z= zo +Rceos 0 


К xo + Rsin 8 cosp 


y=bsinĝsing ， 其 中 0<9<n,-nsgp<n 为 参数 。 


x=asinĝ coso 
z=ccos@ 


m. SHREE- ишни 


y=bsecusin у 中 必 与 为 参数 。 
z=ctanu 


ШШ 
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x 


五 、 双 叶 双 йш 


x=atanucosv 
y=btanusiny， 其 中 4 与 v 为 参数 。 


Z= C5SCCH 
2 
х. maq 2, -2 的 参数 方程 
a 


Xx=aucosy 


y=businv, Жи Бу AER. 


1 2 
z=—u 
2 


七 、 wawas ene 
a 


xX=a(u+v 
y=b(u-v), Жи уу. 


z=2uv 


А. 柱 面 的 参数 方程 
以 曲线 


x= x(u) 
у= y(u) 
z= z(u) 


为 准 线 ， 母 线 平行 于 向 量 * = (1,т, п} 的 柱 面 的 参数 方程 为 


у= (oO+mvy ， 其 中 上 与 为 参数 。 


Z= z(u)+nv 


| х= җи) tiy 


九 、 锥 面 的 参数 方程 
以 航标 原点 O(0,0,0) 为 顶点 ， 以 曲线 


z= z(u) 


x = х(н) 
y = y(u) 
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为 准 线 ， 母 线 平行 十 向 景 (1 тп) 的 锥 面 的 参数 方程 为 


у= уун) +т0-у), Жи 5 v HER. 


a 


Z= vz(u)+n() — v) 


十 、 旋 转 曲 面 的 参数 方程 

将 曲线 

x= х(и) 
у= y(u) 
z= z(u) 
绕 z 轴 旋 转 ， 所 得 旋转 曲面 的 方程 为 


x= J[x(a)]2 +[у(и)]? cosa 
y=[x00]2 +[у(и)]? sina, Ed 


z = z(u) 


Р и, 为 参数 。 
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